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@ Method for accessing data using a self-service point-of-sale terminal. 

(g) A use of relational database management at a host CPU 
interacting with selection requests from remote PCS termin- 
al includes (1) dynamic database generation of textual 
screens from the CPU relational data manager together with 
information for accessing a video picture source local to the 
POS terminal for generating selected picture screens, and (2) 
the textual searching of a virtual menu tree (part of a text 
screen) whose starting node is dependent upon the user's 
choice of picture or text information. The changed content of 
the text and picture screens is solely a function of the 
relationally accessed data designated by the user's menu 
selection. 
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METHOD FOR ACCESSING DATA USING A 
SELF-SERVICE POINT-OF-SALE TERMINAL 

TECHNICAL FIELD 

This invention relates to using relational database management to 
increase the flexibility and performance of a data processing system. 
The preferred embodiment of the invention concerns a system with 
point-of-sale terminals, but the invention is applicable to other 
systems using information retrieval or data access or enquiry 
terminals. 

BACKGROUND 

The prior art is replete with point-of-sale (POS) terminals 
interacting with network model databases. In such network model 
databases entities and relationships are explicit. The entities are 
represented by records, while relationships are name links which connect 
sets of records together. In such systems (a) menu screens must all be 
designated, (b) the updating of distributed entities (tree-connected 
IMS) requires substantial computing resources, and (c) the program, 
patterns, and protocols driving such systems exhibit inflexibility. 

For purposes of this specification, an "entity" references a 
collection of real world objects. A "relationship" is a logical 
association among the members of the entity. A "graphical 
representation of a relationship" would be by way of name linking of 
connecting sets of data usually stored in the form of records together. 

Guterl and Truxal in IEEE Spectrum, Septeitiber 1982, pp. 46-54, "The 
Wonderful World Of Epcot" , describes methods for storing menus 
statically, and linking them together with pointers and storing them in 
a flat file. A "flat file" is a sequence of records on a storage medium 
accessible by any file access method. This reference teaches that 
pictorial frames may be searched by visual access methods displayed on 
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CRT screens using a tree structure searching technique. However, the 
Epcot system fails to utilize information generated by the interaction 
of the man-machine interface such as updating. In considering the 
application of such systems to commercial use, for exaTr$)le, in 
point-of-sale tenninals, such technology is limited in its flexibility 
and the amount of storage space required. 

Lippman, (Movie Maps) , "An Application Of The Optical Video Disk To 
Computer Graphics", ACM Computer Graphics, pp. 32-42, published 1980, 
describes a pictorial touch selection system in which pictures are 
displayed on a surface and selection made by an operator on a portion pf 
the screen which in turn, invokes additional pictures associated with 
the touched area. However, the Lippman system lacks use of any text 
information, database systems, and dynamic generation of screens. 

The Relational Data Model 

It should be appreciated that a database management system provides 
access to the database by user application processes. Such access is 
also given to relational utilities such as logging, recovery, and for 
database reorganization. Of the three extant data models; namely, 
hierarchical, e.g. IMS, network, and relational, the latter (relational) 
is based upon the theory of relations. In order to use a mathematical 
theory of relations, the data model relation must be treated as a set. 
Relational database management methods are extensively described in the 
literature, i.e. Sakti P. ©losh, "Data Base Organization for Data 
' Management'' , Ac«ademic Press/ 1977; Wiederhold, "Database Design", McGraw 
Hill, 1977. 

Definitionally, "normalized relations" are merely a table of 
information consisting of columns (attributes) and rows (tuples). Note, 
that any given tuple is merely a row of attribute values. A "domain" is 
defined to be the set of all possible values that a column may have. A 
"tuple" is a set of values row entered in the table associated with an 
object in the real world. Further, a "key" is a unique identification 
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of a row by one or more column entries. Significantly/ a "relation" is 
a set of tuples. Further, "views" combine any of the columns and select 
any of the rows of one or more rfelations. Additionally/ "view 
generation" is the process of selecting record subsets and their 
relations. 

THE INVENTION 

In this invention, it was unexpectedly observed that by arranging 
data relationally, then screensful of data could be data driven, exhibit 
flexibility of path selection, and reduce computational resource 
necessary for updating and insertion of new information. This 
substantially enhances the PCS terminal. More particularly, this new 
use of relational database within the POS terminal context permits (1) 
dynamic database generation of picture frames from a selected amount of 
information obtained from the relational database, and (2) the searching 
of a virtual menu tree, whose starting node is dependent upon the user's 
choice of pictorial information. In this regard, "relational database 
accessing" is broadly defined as a method of accessing information and 
viewing the accessed information in the form of tables. Dynamic 
generation of textual screens refers to intermixing information from the 
relational database to create screens of information or menus. Note, 
the terms "screen" and "frame" are treated as synonyms. A POS terminal, 
for purposes of this invention, includes at least one video display, 
touch sensitive input means, local memory, an intercoupling 
microprocessor, and a facility for connecting the terminal to a host 
processor - 

Relational databases utilize tuples and tuple compositions. A 
"tuple" is a string of attribute values. For purposes of this 
invention, a "collection of tuples" forms a menu and a linked list of 
menus forms a tree. Also in this invention, "menus" are created in a 
virtual sense. By "virtual", it is meant that a menu is dynamically 
generated only for the life of the transaction and no residual image of 
the menu is retained subsequent to the transaction. 
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The invention contemplates a method for dynamically generating 
screens of textual data upon at least one information display surface of 
a point-of-sale (POS) terminal. The terminal communicates with a 
database management system across a message interface. The terminal 
further has facility for locally storing (caching) and for selectively 
projecting information received from the database system upon the 
display surface. Lastly, the terminal sends operator initiated data to 
the database system. The method steps comprise (a) storing object 
names, attributes, and values relationally as tuples and relations into 
the database system, (b) exhibiting a first menu of textual data upon 
the display surface, (c) selecting of a data element from the displayed 
first menu by an operator at the POS terminal, (d) responsive to the 
operator selection, querying the relationally stored data and acquiring 
a set of tuples therefrom designated by the selection, (e) generating a 
text screen including any menu from the acquired tuple set, and (f) 
displaying the generated text screen upon the display surface and 
rendering the system available for yet another selection of a data 
element from a displayed menu at the POS terminal. 

yet another aspect of the method of this invention is one in which 
the data is relationally stored in first and second normal forms and to 
which elision of objects and values is accomplished by blocking the data 
from inclusion within a tuple or tuples, which tuple or tuples define a 
screen of data, in this invention, the information needed to generate 
the displayed picture is entirely stored within the database in an 
encoded form. This enables the information to be dynamically changed in 
the database which will result in modified textual screens. 
Parenthetically, a relation in "first normal form" is defined as a table 
of data without any missing entries. Likewise, a relation exists in 
"second normal form" if it is in the first normal form and has no 
dependency among the non-key attributes. It should be recalled that 
"keys" can be formed among or on multiple attributes in a relational 
database. Additionally, a non-key attribute cannot be used or 
manipulated as a key. 
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In this invention, all data are stored in databases as tables. A 
relational database management system permits the selection of sets of 
the data and creates a menu. There are no previously defined menus, 
screens, or logical paths. As applied to the point-of-sale terminal 
context, the database consists of data regarding inventory such as would 
be sold by a department store. As items are purchased or new items 
added to the inventory, then the data in the database changes. In this 
invention, as the screens of data are generated from the information in 
the database, it follows that the menu presented to the operator is 
constantly changing. The menu tree {logical path) will also change 
because it is dated appended. For example, if an item is temporarily 
out of stock, all the logical paths associated with that item will not 
be generated- Also, all screens which had exhibited this item will 
change at generation time as the particular item will no longer be part 
of the menu screen. This illustrates dynamic generation of a virtual 
menu from a database. 

BRIEF DESCRIPTION OF THE DRAWING 

Figure 1 is a state diagram for a View and Shop system. 

Figure 2 defines the logical and information components supporting 
the method. 

Figure 3 sets out the method and PCS system within a typical retail 
operation. 

Figure 4 sets out an equipment configuration upon which the method 
steps are executed. 

Figures 5-10 depict the pointers and their relations of the 
principle machine-executable procedures supporting the steps of the 
method of the invention. 

Figure 11 depicts a system flow of the state diagram in Figure 1. 
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Figure 12 shows screensful of data utilizing dynamic screen 
generation. 

DESCRIPTION OF THE PREFERRED EMBODIMENT 
AND INDUSTRIAL APPLICABILITY 

System Structure 

Referring now to Figure 2, there is depicted the logical 
organization, information, and relationships among the elements forming 
the system upon which the method of the invention is executable. As m&y 
be recalled, the invention is laid in the context of POS terminals. 
Such terminals include a video screen 21, a source of video information 
23, a text color and graphics screen 25, a keyboard 27, all terminating 
in a microprocessor 29. The POS terminal communicates with a remote 
host 31 over a communicating path 33. The remote host includes a 
relational database, the logic of the application (application rules), 
and selected utilities such as a screen formatter and communications 
meager. For purpfoses of this invention, the screen formatter contains 
information required by the screen generator for composing the display. 
Whereas the screen formatter is resident at the host, the screen 
generator is resident at the terminal. 

Operationally, microprocessor 29 communicates with host 31 by 
sending a service request. At this point the microprocessor assumes a 
hold or wait mode, i.e. goes to sleep. The host 31 decodes the service 
request, accesses the database, and extracts information therefrom 
according to the rules, and formats a reply message which includes 
screen formatting information. The reply message is returned to the 
local computer over path 33. The microprocessor 29 is "awakened" upon 
receipt of the return message from host 31. Responsive to this message, 
microprocessor 29 updates every screen cache, generates the screen of 
data for display, invokes the necessary video command to operate video 
screen 21 to create an information environment to enable the user to 
make his or her next selection. Keyboard 27 is the facility by which 
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the user communicates his or her selection obtained from a menu 
displayed on the text screen 25. The input of menu selection could also 
be performed on a touch sensitive display surface or a display such as 
the IBM 3277 permitting light pen selection. Lastly, to avoid sending 
additional service requests where information defining a text screen or 
a picture (video) screen has been generated, then it may be temporarily 
stored in a local buffer until the transaction is completed. Such a 
local buffer may be denominated as a "video cache". A local buffer may 
be created out of memory directly accessed by the microprocessor such as 
its main memory or on local DASD. 

Referring now to Figure 3, there is shown a depiction of elements 
of the method and POS system within a typical retail operation. First, 
there exists an operational database formed from sales and promotional 
information, customer billing r ordering, and preference information. 
Overlaying this database is a relational data view and accessing 
facilities. One commercially available accessing method called IBM DB2 
supports the IBM SQL language facility. The latter being denominated 
the Structured Query Language. Interacting with SQL are a range of 
application processes, maintenance processes, and processes invocable by 
store personnel at POS terminals or at the host associated with 
updating. The relational database accessing language SQL is described 
in IBM publications, "SQL Data System and Terminal Users Guide", 
SH24-5016, and "SQL Data Systems Application Programs", SH24-5018. 

View and Shop 

Significant field of use of relational data management on POS 
terminals is in the context of department store sales. Department store 
sales have long endured high overhead including significant numbers of 
sales personnel. POS terminals are seen as a substitute for catalog 
review of sales, question facility of sales personnel, and order. entry. 
A customer may be considered as being either in a browse or purchase 
mode. This means that the customers who desire to view samples and 
information relating to present or prospective sales transactions can be 
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machine aided, to a depth exceeding the depth or scope of individual 
salespersons* 

Referring to Figure 11, in order to initialize a transaction, a 
customer at a POS terminal may initiate a transaction by entering an 
appropriate credit card or user number and password. Displayed on text 
screen 25 is an initial menu permitting the customer to select or make a 
request by name, department, brand, or key words responsive to customer 
selection entered over keyboard 27 to microprocessor 29. If the 
requested item is locally stored in the video cache, activity data is 
sent to the host. The host processes and stores the activity data in 
SQL. Next, the microprocessor 29 creates a new text screen and sends a 
command to video source 23. The video source responsively accesses the 
video data and presents either a still or multiple pictures according to 
'^he^nattwre of the -command Tjpoft video screen 21. If the selected item is - 
not in the local video cache, microprocessor 29 sends a service request 
to the host. In turn, the host uses the application rules and accesses 
data again using SQL. After this, the host generates screen formatting 
information and sends a reply to microprocessor 29. At this point, 
microprocessor 29 will also create a new text screen and send a command 
if indicated to video source 23 where it is acted upon. 

The flow of control of this process is depicted in Figure 11. The 
nature of the information pertinent to the View and Shop context is 
depicted in Figure 1. At the point where the information needs of the 
customer are satisfied, a customer desiring to buy would invoke an order 
entjry mode. However, even if a customer desires not to purchase the 
store has beneficial use of his browse and customer satisfaction 
experience. It should be noted from Figure 1 that the customer may 
reiterate any number of times through any nximber of paths so that either 
a view or many departments or brands or items have been exposed to the 
customer. 
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Dynamic Generation of Textual Screens 

Figure 12 illustrates how textual screens are dynamically created 
from the database • In Figure 12A is shown a screen that a user of the 
POS might see in a department store. If the user pushes button 3 for 
Outdoor Cooking, Figure 12D shows the next screen that the user would 
see listing the department at the top, Outdoor Cooking, and things that 
are found in that department, including grills and tables. In this 
system, the screen shown in Figure 12D is created dynamically from the 
database. 

Figure 12B illustrates a "relation" in a relational database which 
is manifest as a table. The table has columns with column names. The 
table in Figure 12B includes item names, department names, categories, 
^and models. Other things that might be in this relation would be price, 
description of the item, etc. When the user selects Outdoor Cooking in 
Figure 12A, button 3 is transmitted to the host where a query is formed 
in the host computer- The query that is formed is also depicted in this 
figure. The query asks the user to select a distinct categorx' from the 
table where the department name is Outdoor Cooking and order the result 
by category. Responsively , the database manager then goes to the SKU 
table, finds all items that are in the Outdoor Cooking department (those 
would be items 2, 3, 4, 5, 7, 8 and 9), and from those items it 
ascertains the distinct categories which would be grills, books, and 
tables. The database manager then orders these in alphabetical order 
and sends that list to the POS terminal. Next, the POS terminal 
constructs the screen Outdoor Cooking with books, grills, and tables as 
shown in Figure 12D. This is a dynamic process because if subsequently 
one were to eliminate all items or all books from the Outdoor Cooking 
department, then item 7 would disappear from the database and the next 
time a user selected Outdoor Cooking in Figure 12A a screen would be 
created in Figure 12D that would just have grills and tables. 

One can contrast the dynamic generation of screens shown in Figure 
12 with the techniques presented in the previously mentioned "Wonderful 
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World of Etpcot" reference in the following way. That is, if one were to 
use the approach given in the "Wonderful World of Epcot", then the 
designer of the system would have to predetermine every possible 
combination that might occur/ such as being out of books in the Outdoor 
Cooking department* Therefore i a screen would need to be constructed 
offering only grills and tables. If grills were out of stock, a screen 
would need to be constructed offering only books and tables. If both 
books and grills were out of stock a screen would need to be constructed 
with only tables on it. So the nuinber of screens that the user would 
have to create grows coitibinatorially with things that might happen in 
thfe retail system and that only covers the case of something being out 
of stock. There are many other cases which would illustrate the same 
feature, whereas in this dynamic generation of screens the screen is 
created based upon whatever is in the database and one would not have to 
determine all the combinations and permutations that might occur. 

Hardware In^lementation of the System Structure 

Referring now to Figure A, thexe is shown the equipment 
configuration upon which the method steps are executed. The host 31 
preferably includes an IBM 3033 with a local database coupling the 
remote POS terminals over respective paths 33. The View and Shop 
terminal may be variously configured into a tabletop model or indeed may 
occupy a booth. In the tabletop model, a TV monitor 21 may be mounted 
atop an IBM PC adding an associated text screen 25, keyboard 27, and 
microprocessor 29 therein. The microprocessor/IBM PC is slotted and has 
facility for adaptor cards for driving the video disk player 23 over 
paths 22 and 24, respectively. 

The view and Shop POS terminal in booth form differs from the 
tabletop model only in the packaging and the particular selection of 
components. In other respects it should be a functional equivalent. 
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The View and Shop Coimnand Language 

In order to facilitate communication between the POS terminal and 
the host, a command language is defined which permits the host to direct 
the POS terminal activities. The language in short form is set out in 
the accompanying table. 



TABLE 1 



All messages start and end with 3 of the following 
symbols: @, #,%,/,+ 

Messages that start with headers ijk must end with header 
kji so that %//@abcde@#% is a legal message. 

The following message types have been assigned: 



COMMAND 




MEANING 


EXAMPLES 


1 


m% 




- Screen ID 


@//%request%//@ 


2 


#%/ 




Video Disk Command 


#%/3333C2/%# 


3 


w 




Screen Header 


@#/40, 1,27,2,0,0,4, 10/#@ 


4 


@%/ 




List Follows 


@%/40,9,35,0,6,0,6,l/%@ 


5 


@%+ 




List Item 


@%+Request Item by Name: !REQOOOOONA+%@ 


6 


m% 




Response 


i?@%B: !REQOOOOOHD%(a# 


7 






Do not cache screen 


//%@@%# 


8 


%@# 




Accept Numeric entry 


%@#//@% 


9 


#/% 




Pause until last cmd done 


#/%%/// 


10 


m/ 




Text 


#@/ENTER QUANTITY TO BE PURCHASED/(af/ 


11 






Ignore this message 




12 


@@@ 




Set delay time in sees 


@(a@i80@@@ 


13 


#/+ 




End of screen 


#/++/# 
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Referring now to Table 1, there are displayed three columns. The 
leftioost column is designated "command** , the second column "meaning**, 
and the third column an illustrative example**. The commands are 
generated by the host and are included as part of the reply or message 
sent to the terminal in order to direct terminal activities. Every 
message sent to the POS terminal from the host must begin with a Screen 
ID which consists of the symbol shown in row 1 of the table, leftmost 
column, followed by a name and terminated by the symbol in reverse 
order. All messages are terminated by the End of Screen shown in row 
13. Again, note that in the example the termination of the End of 
Screen symbol is by the symbol in reverse order. Note that the term 
"ending" is used in two senses. One designates a beginning and end of a 
ccMnmand while the other bounds the beginning and end of a message. The 
beginning of a message starts with the Screen ID command on row 1. The 
message terminates with the End of Screen command on row 13. Among the 
commands which may be embedded in the message might be the video disk 
command shown in row 2. The video disk comDtnand symbol brackets the 
information utilized by the video disk player, i.e. 3333C2. For 
purposes of consistency, it should be noted that the video source and 
video disk player are used synonymously in this specification. 

The commands in Table 1 may be categorized as either video 
commands, textual display commands, or control commands. The video 
commands -direct the selection of picture information to the video 
monitor, the textual display directs the microprocessor to write a 
message on the text screen 25, while the control command activates or 
deactivates the selected elements in the POS terminal. ' Further 'details' 
of these commands are set out in the succeeding paragraphs. 
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Detail for Screen ID 

fono^ei^S?'%#@^ '"^ characters except m/+ 

Detail for Video Disk Command 
#V followed by a frame number (0 - 54000) 
CO (Search command) 
C2 (Autostop) 
C3 (Stop) 

C5 (Frame number) 
followed by /%# 



Detail for Screen Header 
m/ followed by (screen width), 

(number of lines that follow, 
(width of the header), 
(foreground color), 
(background color) , 
(font), 

(row location), 
(column location), 
followed by /#@ 

Detail for List Follows 
@%/ followed by (screen width), 

(number of lines that follow) 
(width of lines), 
(foreground color), 
(background color), 
(font), 

(row location), 

(column location), 
followed by /%@ 



{40 or 80} 
{usually 1 or 2} 

{0 - 15} 
{0 - 15} 

{usually 0; 7 spec case} 
{0 = centetr heading} 



{AO or 80} 

{waximura of 9} 

{max width of a line} 

{0 - 15} 

{0 - 15} 

{must be 0} 

{0 = center list) 



Detail for List Item 

followed by (text string) 
followed by : ! 
followed by (text string) 
followed by 

Detail for Response 

followed by (character) 
followed by : ! 
followed by (text string) 
followed by %@// 



{to appear on current screen} 
{null or next Screen ID} 

{any legal character on keyboard} 
{null or next Screen ID} 



Detail for Do not cache Screen 
^imU means that this screen should not be cached locally on the PC disk. 

Detail for Accept Numeric Entry 
imim means that numeric entries will be made from this screen thus 
program should enable numeric keys 1-9. 



Detail for Pause until last command done 
i^lVklii means that video disk commands should be completed before a 
keystroke can be made. 

Detail for Text 

mi followed by (text string) {<40 or <80, depending on width) 

followed by /@# 

Detail for Ignore Message 
MMM means that this message is unrelated to the screen description and 
should be ignored, (e.g. Intervening Computer Operator message) 

Detail for Set delay time in seconds 
(a@@ followed by (number) {number of seconds for delay) 

followed by @@@ . . 

Detail for End of Screen 

means that all the dLnformatlon needed to construct the screen and 
specify the actions to be taken for all possible user responses 
preceded this message- 
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At microprocessor 29 in the POS terminal, a software facility for 
interpreting each of the host-originated commands is set out in source 
code written in the IBM version of BASIC to "be found in Table 2. This 
software facility consists of a POS terminal initialization or startup 
routines. After the customer is in communication with the database, 
commands received from the host may be interpreted by corresponding 
sections of the software facility. Illustratively, upon receipt of a 
message from the host, microprocessor 29 operating with the software 
facility in Table 2 does initial bookkeeping and next at step 12930 
ascertains which one of the commands set out in Table 1 has been 
received. Assuming, that the command is that of "Screen ID" then a 
branch is made to step 13290. This subroutine processes the Screen ID. 
Upon completion, control is then returned or passed to step 13040. 
Since messages from the host frequently consist of strings of commands, 
steps 12930 to 13040 form a loop so that after completion of the Screen 
ID command, then the very next message element might be processed in a 
Screen Header and a similar branch to a subroutine is made. The header 
information is processed with a return being made to steps 13040 in 
Table 2 as previously described. 

Host Processing 

As may be recalled, the host processing utilizes the SQL language 
running under DB2 which is the database management portion of an - 
operating system. A processor can be the IBM 3081. The host facilities 
include a relational database management part and application programs 
which utilize the services of the relational database manager. It is 
the application processes which communicate with the relational database 
manager and with the POS teirminal in supporting the interactive 
relationship between the customer and the data in the database. In this 
regard. Figures 5-10 relate to the applications program which is 
included in the specification in detail in Table 3, In discussing the 
content of Figures 5-10, reference will be made to the principal 
function to be executed. Counterpart detail can be immediately obtained 
with reference to the corresponding section in Table 3, 
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Referring now to Figure 5, there is shown a flow diagram of the 
main program and the different execution sequences within the main 
program and their execution logic. The PRELOG process generates the 
initial logo appearing on the screen, starts the video disk player 23, 
establishes a communication relations link with the POS terminal 31. 
The PURIHC process verifies the customer through credit card 
identification and password and then it raises the first initial screen 
involved in the customer transaction. 

After this initialization, the system assumes an initial state 
which is one of a preselected number of states designated by a variable 
(STATEN) which may be referenced in Table 3. In the reduction to 
practice the number of usable states was chosen to be 21. A procedure 
is then invoked DSPLAY shown in detail in Figure 6. 

The DSPIAY Procedure 

The DSPLAY process executes SQL commands, sets parameters, and 
invokes either one of two subordinate processes; namely, PCDSPL or 
DSPL779. Again, the procedure details are available with reference to 
Table 3. After execution of either PSDSPL or DSPL779, screen formatting 
information is communicated to the POS terminal. At this point, the 
host awaits a reply from the POS terminal responsive to this 
communication. Additional details of PCDSPL and DSPL779 may be found 
with reference to Figures 7 and 8, Upon receipt of a reply from the POS 
terminal, a procedure labeled RPLTRANS is then invoked. The details of 
this procedure are given in Figure 9 with the implementation in the 
counterpart portions of Table 3. The RPLTRANS procedure then in turn 
invokes the procedure REPGL set out in detail in Figure 10 and 
counterpart Table 3 section. 



The application rules for abstracting data from the relational 
database are ascertained from the reply received from the POS terminal 
and the state in which the system is executing at that instant, and the 



= 0140302 

data retrieved by the SQL statement. A list of the SQL programs are 
cited under SH0WQ5 portion of Table 3, 

The additional facilities pointed out in Table 3 for satisfying 
host processing requirements include the actual relational tables used 
by SQL instructions in relationally accessing the information requested 
by the POS terminal. Reference should be made to pages 2-6 of SH0WQ5. 

Attached herewith and conforming as a portion of the specification 
are original computer instruction listings in Tables 2 and 3, Table 2 
is the listing executable at a POS terminal microprocessor 29 while 
Table 3 is the host sequences executable on the IBM 3033. The Table 2 
listing references code sequences executable upon an IBM Personal 
Computer with a resident BASIC interpreter. The IBM PC is operative as 
microprocessor 29 in Figures 2 and 4. The Table 3 listing sets out the 
host code sequences QKSHOPl PLIOPT and SHOWS PLISQL. 
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IS 



TABLE 2 



10160 



10170 



lOlBO 
10190 



10270 



.10300 



10370 



REM I 

REM I IBM Personal Computer VIEW & SHOP j 

REM I Version MO. 04 Copyright IBM Corp., 1982 j 

REM I Mar. 23, 1983 | 

REM I ' 

DEFINT A-Z 

DIM PT(5,1),MSGA$(80), BADS§(10) 

DIM SCB$ (22) ,rONTT$ (9) ,F0NTV(9) ,FONTF$ (9) 

DIM STK$(50),IPT(300,1), LRU? (300,2), INFO$(20) 

REM 

GOSUB 10700 ' Read In phone, logon, password,params 

GOSUB 12750 ' Set Parameters ds and ms 

GOSUB. 12850 ' Set parameter DIAL 

GOSUB 15890 ' Select Monitor 

GOSUB 20000 • Initialize 

GOSUB 10800 • Set Disk Drive for LRU & Random File 

REM - 

GOSUB 12530 'LI Display Logo Screen 

GOSUB 16070 • Start Video Disc 

GOSUB 11310 • Wait for User to Push ENTER 

GOSUB 12590 ' Display Please Wait Screen 

ON DIAL GOTO 10170,10180 ' Choose Auto-Dial or Manual Dial 

GOSUB 50002 ' LOGON &. Start HOST program QR5 

GOTO 10190 ' Start Main Program 

REM 

GOSUB 50400 ' Start Manual Dial Program 

GOSUB 11470 'La:Wait for HOST OK Message 

IF RC=1 THEN 10550 ' ELSE END PROGRAM 

GOSUB 10840 'Lb: Send Host "ok" message 

GOSUB 39800 ' Open Random File to Cache Screens 

GOSUB 39900 * Read in Screens not to be saved 11-30-82 

GOSUB 40000 • Read in cached Screens from previous run 

REM _ 

GOSUB 11520 'LdiWait for HOST ID Request 

IF RC=i THEN 10550 ' if EXIT received THEN LOGOFF at Lx- 
GOSUB 12090 ' Display Credit Card Screen 

.GOSUB 12230 , •LcrPisplay.User Entered Credit Card Number - 

GOSUB 10870 • Send Host NUMBER 

IF CCERR=1 THEN 10300 

REM 

GOSUB 11570 ■ Wait for HOST PASS Request 

IF RC=2 THEN 10300 ' if wrong card number THEN try again at Lc: 

IF RC=1 THEN 10550 ' if EXIT received THEN LOGOFF at Lx: 

GOSUB 12310 • Display Password Screen and get number 

GOSUB 12450 'Lp: Display User Entered Pass Number 

GOSUB 10870 • Send Host NUMBER 

IF CCERR=1 THEN 10370 

REM 

GOSUB 11690 I Wait for HOST REQOOOOORE Screen 

IF RC=2 THEN 10370 ' if wrong pass number THEN try again at Lp: 

IF RC=1 THEN 10550 ' if EXIT received THEN LOGOFF at Lx: 

GOSUB 16000 • Initialize for New Customer 

GOTO 10510 • Process Screen 
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REM 



10460 
10470 



10510 
10511 



10512 
10513 
10514 

10520 



10526 



GOSUB 12590 
GOSUB 11810 
IF RC=0 THEN 10526 
IF RC=1 THEN 10550 
GOSUB 12900 
IF LRUFD=1 THEN 10514 
GOSUB 39000 
GOSUB 39100 . 
IF NSAV=1 THEN 10512 
GOSUB 40400 
IF LRUFD=1 THEN 10513 
GOSUB 17000 
IF NSAV=1 THEN 10512 
GOSUB 18000 
GOSUB 15680 
IF NSAV=1 THEN 10512 

GOSUB, 15740 V 

eoSUB 40500 
GOSUB 15830 
NSAV=0 
GOSUB 15410 



Lt: Display Please Wait Screen 
Walt for Next Host Screen 
Check if Screen is correct screen 

if EXIT received THEN LOGOFF 
Process Screen 

Set NSN$=Screen ID 
Check if NSN$ is a bad screen 
Add screen to STK$ 
Check if screen already in LRU 

Check if screen is too large 
Add screen to STK$ 
Check if disk is full 
Save this screen? 
*A* 

V. -Put ending record no. in array IPT 
'*B* Add screen to LRU list 
'*A2* Update the stack of saved screens 



at Lx: 



11-23-82 

11- 24-82 

12- 03-82 
11-23-82 

11- 23-82 

12- 01-82 
12-03-82 
11-29-82 



REM 



'*B1* Check Commpletion of Conunand YSMS 
IF YRC=0 THEN 10520 ELSE GOSUB 41000: END 
GOSUB 30000 '*BP* Sound.. a two tone beep 

GOSUB 10900 • Send Host User Key or VF$ 

IF RC=0 THEN 10460 ' Send Host Keystroke + "y" 
IF RC=1 THEN GOSUB 12900: GOTO 10470 ' Go Process Screen 
IF RC<>2 THEN PRINT "ERROR in Keystroke Routine": GOSUB 41000- 
GOTO 10270 » RC=2; New Customer - Loop back to Ld/ 

GOSUB 16300 ' Check if Screen is correct screen 

IF SCR0K=0 THEN 10510 ELSE 10520 



END 



10550 GOSUB 50024 
GOSUB 41000 
CLOSE ' 
GOTO 10160 
REM - 



'Lx: LOGOFF 

* Save list of screens on disk: 



Close all files 
Start over 



LRULIST.DAT 



SA9-83-009 , 
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2o 



10560 

50001 
50002 

50003 



50006 

50009 

50012 

50015 

50017 

50019 

50021 

50023 
50024 



50027 
50028 



50031 



Special ending when ERROR is printed on screen 



GOSUB A 1000: END 

REM 

RETURN 

CR§=CHR$(13) :XLF$^=CHR$(10) :CRLF§=CR§+XLF$ 
CLOSE ^fl:OPEN "coml: 1200,ra,7,2,DS,CD" AS #1 
C$="lnitialize Modem" : GOSUB 50071 

P$=XLF$+CRLF$+CR$:C§="?...": GOSUB 50050:G0SUB 50054 
IF RC=0 THEN 50006 ELSE 50031 
C$="Send Phone Number": GOSUB 50071 

P$=FONE$+CR$:C§="DATA MODE. "+CRLF§ : GOSUB 50050: GOSUB 50054 
IF RC=0 THEN 50009 ELSE 50031 
C$="Waiting for VM": GOSUB 50071 

P$=CHR$(17)+CR$:C$="m":G0SUB 50050:GOSUB 50054 

IF MSG?="" THEN FOR 1=1 TO 8000:NEXT I:GOTO 50009 ELSE 50031 

C$="Send Logon": GOSUB 50071 

P$="logon "+USID$+CR§ : C$="SS"+CHR§ (13)+" . "+CHR$ (17) : GOSUB 50050 
GOSUB 50054: IF RC=0 THEN 50015 ELSE 50031 
C$="Send Password": GOSUB 50071 

P§=PASS$+CR$:C$="."+CHR$ (17): GOSUB 50050:GOSUB 50054:G0TO 50031 
C§="Sysi:em Reconnected, Send b": GOSUB 50071 

P$="b"+CR$:C§="."+CHR$ (17): GOSUB 50050:GOSUB 50054:G0T0 50019 
C?="Send hx": GOSUB 50071 

P$="hx"+CR$:C$="."+CHR$( 17): GOSUB 50050:GOSUB 50054:GOTO 50031 
C$="Send i cins":GOSUB 50071 

P§="i cms"+CR§:C§="."+CHR§(17):G0SUB 50050:GOSUB 50054:GOTO 50031 
P?="qr5"+CR$:C$="Host Program Started": GOSUB 50050:G0SUB 50071:RETURN 
C$="Send Disconnect M":GOSUB 50071 

P$="discm"+CR$:C$="."+CHR$( 17): GOSUB 50050:GOSUB 50054 

FOR 1=1 TO 5000:NEXT I:RETURN 

END 

C§="Send Logoff" :GOSUB 50071 

P$="logoff"+CR§:C§="."+CHR$ (17): GOSUB 50050:G0SUB 50054 
FOR 1=1 TO 5000: NEXT I: RETURN 

REM E Check Returned Message B 

IF MSG$='^" THEN 50003 



C$="!": 
C§="RECONNECTED": 
C$="DISCM": 

C$=XLF$+CHR$(19)+"CMS": 
C$=CHR$ (0)+CHR$ (0)+"CMS" ; 
C?="UNKNOWN CP/CMS COM": 
C$="?CP: HX": 
C§=CHR$(19)+"CP": 
C§="Q"+CRLF§+"BYE" : 
C$="DATA MODE.": 
C$="?../': 
C$="VM/370 ONLINE": 
C$="restart": 
C$=" ALREADY LOG": 
C$="LOGOFF AT": 
C$="DISCONNECT AT": 
C§="SSSSSSSS": 



GOSUB 50066: IF RC=0 THEN 50012 
GOSUB 50066: IF RC-0 THEN 50017 
GOSUB 50066: IF RC=0 THEN 50023 
GOSUB 50066: IF RC=0 THEN 50023 
GOSUB 50066: IF RC=0 THEN 50023 
GOSUB 50066: IF RC=0 THEN 50023 
GOSUB 50066: IF RC=0 THEN 50023 
GOSUB 50066: IF RC=0 THEN 50021 
GOSUB 50066: IF RC=0 THEN 50003 
GOSUB 50066: IF RC=0 THEN 50009 
GOSUB 50066: IF RC=0 THEN 50006 
GOSOT 50066: IF RC=0 THEN 50012 
GOSUB 50066: IF RC=0 THEN 50012 
GOSUB 50066: IF RC=0 THEN 50028 
GOSUB 50066: IF RC=0 THEN 50027 
GOSUB 50066: IF RC=0 THEN 50027 
GOSUB 50066: IF RC=0 THEN 50015 



MSG$="ERROR MESSAGE ***** "+MSG§:GOSUB 50061 :GOTO 50003 
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50056 REM D Send P$ to Modem B — 

FOR 1=1 TO LEN(P$) 

K$=MID$(P$,I,1):F0R J=l TO 500:NEXT J:PRINT //1,K$; 
NEXT I: RETURN 

50054 REM B Wait Modem Reply B 

MSG$="" 
50056 FOR MI 1=1 TO 5000 

IF EOF(l) THEN 50060 

MSG$=RIGHT$ (MSG$+INPUT$ (LOC(l) ,#1) ,128) 

IF RIGHT? (MSG?, LEN(C$))=C$ THEN RC=0:RETURN ELSE 50056 

50060 NEXT MI ! :RC=1: RETURN 

50061 REM B Print MSG$ fi - 
return 

FOR 1=1 TO LEN(MSG$) 
K$=MID$(MSG$,I,1):K=ASC(K$):IF (K<32 OR K>122) THEN K$="<"+STR$ (K)+">" 
PRINT K$;:IF K=10 THEN PRINT 

NEXT I:PRINT:PRINT " — - ":RETURN 

50066-REM B ChecK MSG$ for C$ B " 

IF LENCC$)>LEN(MSG$) THEN RC=2: RETURN 
FOR 1=1 TO 1+LEN(MSG$)-LEN(C$) 

IF C$=MID$(MSG$,I,LEN(C$)) THEN RC=0:RETURN 
NEXT I :RC=1: RETURN 

50071 REM B Display C$, line 1 , Center fl • 

c=l:if ms=l THEN color 0,6 ELSE color 0,7: if owid=40 THEN c=21 
LOCATE l,c,0:PRINT LEFT$(BLNK$ ,owid-2) ; :X=((owid-2)-LEN(C$))\2 
LOCATE 1,X,0:PRINT " "+C$+" ";:RETURN 

50075 REM *^JwVAft ft AvHAAAAAAAAAAAft/.A;rAA ftA AvVAAAAvV V: ^ 

REM "B Start of Manual Dial for LOGON fi 

REM 

RE{1 B Wait for Connection with HOST B 

50400 C$="Dial "+FONE§+", press ENTER": GOSUB 12650 
50410 GOSUB 12860: IF K$o"e" THEN 50410 

CLOSE #1: OPEN "coral: 1200, m, 7,2, DS, CD" AS #1 

GOSUB 12590 'Display Please Wait Screen 

REM B LOGON & Start HOST Program VASP B 

50500 C$="VM/370 ONLINE":GOSUB 12650:G0SUB 12010 

P$-"": C$="CR Sent": ISW=1: GOSUB 12650: GOSUB 11250: GOSUB 11950 
50620 P$="logon "+USID$ :C$="User ID Sent":GOSUB 12650:G0SUB 11250: GOSUB 11950 

B$="SSS": GOSUB 50740: IF RC=0 THEN 50640 ELSE 50620 
50640 P$=PASS$: C$="Password Sent": GOSUB 12650: GOSUB 11250 
50650 GOSUB 11950 

B$="CMS": GOSUB 50740: IF RC=0 THEN 50790 

B$="REC": GOSUB 50740: IF RC=0 THEN 50720 

B$="RES": GOSUB 50740: IF RC=0 THEN 50620 

B$="CP": GOSUB 50740: IF RC=0 THEN 50710 

P$="": ISW=1: GOSUB 11250: GOTO 50650 
50710 P$="i CMS":C§=:P$: GOSUB 12650: GOSUB 11250: GOTO 50650 
50720 P$="b": C$=P$: GOSUB 12650: GOSUB 11250: GOSUB 11950 

P$="hx": C$=P$: GOSUB 12650: GOSUB 11250: GOSUB 11950: GOTO 50790 
50740 IF LEN(MSG$)<3 THEN RC=1: RETURN 

FOR I=LEN(MSG$) TO 3 STEP -1 
RC=ASC(MID$(MSG$,I,1)): IF (RC<48 OR RO90) THEN 50780 
IF MID$(MSG$,I-2,3)=B§ THEN RC=0: RETURN ELSE RC=1: RETURN 
50780 NEXT I: RC=1: RETURN 
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50790 P$» qrS : C$= Host Program Started": GOSUB. 12650: GOSUB 11250: RETURN 
o^u lllsl "^"'^ °^ Manual Dial Program B 

^^'^ ^" P^°"® "°-» logon, password, ds. ms. Iru lists 
10700 CLOSE //I: OPEN "A : PARAMS . DAT" FOR INPUT AS #1 
K=0 

10710 IF EOF(l) THEN 10750 

INPUT n, INFO$(K) 

K=K+1: GOTO 10710 
10750 CLOSE n 

?????c:;!!^;2!J?^'?»^^^=^'^°^^^^"-PASS? =INF0§(2): LRU1$=INF0$(3) 
FILE1$=INF0$(4):LRU2$=INF0$(5):FILE2§=INF0§(6): DS$ =INF0$C7) 
RETURn"^'^^°^^^^'^^^^^ =INF0$(9):L0G0$=1NF0§(10):REQ$ =INF0$(11) 
REM 

REM B Set Disk Drive for LRU and Random FileB 

10800 DSKR$=FILE1$: DSKL$=LRUl$: RETURN 
REM 

10840 REM B Send Host OK Message fi 

P?="0K":C$="0K sent to Host":gosub 12650: GOSUB 11250:RETURN 



rem 



10870 REM B Send Host Number fi 

C$="Number Being Verified": GOSUB 11250: GOSUB 12650: RETURN 

rem 

10900 REM B Send Host User Key + y or VF§ B 

FOR-I=0 TO 49:MSGA§(I)="":NEXr I ' <=DUMB TERMINAL ONLY 
xf vf§="" THEN 10940 

P$=VF$:C$="Frame Number = "+VF$ :VF$="":G0T0 11060 
10940 GOSUB 12860 

IF K$="k" THEN K$="hx" : C$=K$ : P$=K$ : GOTO 11060 

l4 70^^ K$="cy":C§=K$:P?=K$:G0SUB 11250:G0SUB 12650 :RC=2: RETURN 

IF K$=MID?(NUM$,I.l) THEN IF SCB$(I)="" THEN 11000 ELSE 11010 _ 

WtiXT X 

11000 IF K$="m" THEN 11007 

IF K§="e" THEN 11008 

IF K$="b" THEN 11009 
,,n«-, ^ invalid choice, TRY AGAIN": GOSUB 12650: beep -GOTO 10900 

C$= MORE TEXT is invalid. TRY AGAIN": GOSUB 1265 O-beS: GOTO 10900 
JJSnS T^^^ AGAIN": GOSUB 12650! beep 'goS loloQ 

??^SYJi2?°^K 11000 "^^^ "^^'^ — ^ 

GOSUB 40400 'check if screen is in LRUS list 

IF LRUFD=1 THEN 11015 ELSE 11050 ^ 
11015 P$=K§+"n":C$="Number Sent "+P$ 

GOSUB 11250: GOSUB 12590: RC=1- pfttipm '04. ^ u.„^ 

11050 P$=K$+"y":C$="Number SeAt "+P$ *° 

11060 ^GOSUB 11250: GOSUB 12650: LRUFD=0: RC=0: RETURN 'Return to *Z* 
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11090 REM B Check Stack For Saved Screens Q 

IF K$="n" OR K$="N" THEN GOSUB 11150: RETURN 
IF K$="b" OR K$="B" THEN GOSUB 11120: RETURN 
NSN$=SCB$(I): KEY0K=1: RETURN 'Return to 

REM 

. REM fl Keystroke = b for BACKUP; Update Stack; Update Stack Counterfi 

11120 IF ISTKOl THEN 11135 
KEYOK=0: RETURN 

11135 NSN$=SCB$(13): IF NSN$<>"B" THEN 11137 

11136 II=ISTK-2:G0SUB 11170: KEY0K=1: RETURN 

11137 IF NSN$="" THEN 11136 

FOR II = ISTK-1 TO 0 STEP -1: IF NSN§=STK$(II) THEN 11140 
NEJCr II 
11=0 

11140 GOSUB 11170: KEY0K=1: RETURN 
REM 

REM B Keystroke = n for NEW REQUEST; Clear Stack and Set Counter = iB 

11150 NSN$=SCB$(14) 

IF NSN$="" THEN 11155 
IF NSN$="N" THEN 11155 
IF NSN$<> STK§(0) THEN 11160 
11155 ISTK=1: NSN§="REQOOOO0HD": KEY0K=1: RETURN 
11160 PRINT "ERROR: N not in SCB$(14)": GOSUB 41000: end 
rem 

11170 REM B Clear out saved screens not needed anymore B 

JT=ISTK: ISTK=II+1: FOR JJ=II+1 TO JT: STK?CJJ)="": NEXT JJ 
RETURN 

rem 

11250 REM B Send P$ To Host fi — 

IF ISW=1 THEN 11270 

IF P$="" THEN 11260 ELSE 11270 
11260 CS="lnvalid Choice, PleaseTry Again": CCERR=1: RETURN 

11270 FOR 1=1 TO LENCP$) 

IF EOF(l) THEN 11280 ELSE B$=INPUT$ (LOG (1) ,#1) : GOTO 11270 
11280 PRINT #1,MID$(P$,I,1); 

NEXT I:PRINT #1,CHR$(13):G0SUB 12700 

CCERR=0: RETURN 

REM 

11310 REM B Wait for User to Push ENTER B - 

c$=" To Begin, Push ENTER ": GOSUB 12650 
GOSUB 12860: if K5<>"e" THEN 11350 

if ds=0 then return else YSM$="E3E6E8": GOSUB 15000 :RETURN * Audio on 
11350 if k$o"k" THEN 11310 

if ds=l then YSM$="F9" : GOSUB 15000 'Reject Video Disc 

color 15,0,0: locate 1,1: print "Do you want monochrome Monitor ? (y/n)"; 

GOSUB 12860: if K$<>"y" THEN CLS:end 

KEY OFF:WIDTH 40:DEF SEG=0:POKE 6cH410,PEEK(&H410) OR &H30 
WIDTH 80:LOCATE , ,1, 12, 13 :KEY ON:SCREEN O,0,0:CLS:end 
REM 
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11A70 REM 0 Walt for HOST OK Message B 

GOSUB 11810: IF RC=1 THEN RETURN 

IF MID$(MSG$,4,2)="0K" THEN RC=0: RETURN 

P$="N0":C§="0K not received" : GOSUB 11250:G0SUB 12650:G0TO 11470 
REM 

11520 REM B Walt for HOST ID Request D 

GOSUB 11810:IF RC=1 THEN RETURN 

IF MID$(MSG$,10,3)="CUS" THEN RC=0:RETURN 

P$="N0":C§="ID not received": GOSUB 11250:GOSUB 12650:GOTO 11520 
REM 

11570 REM B Walt for HOST PASS Request B — 

GOSUB 11810: IF RC=1 THEN RETURN 

IF MID§(MSG$,10,3)="PAS" THEN RC=0:RETURN 

IF^MID$(MSG$,4,3)="WR0" THEN 11620 

P$-"NO":C$="PASS not received": GOSUB 11250:GOSUB 12650:GOTO 11570 
11620 beep: If ms=0 THEN color 16,7:c=20 ELSE color 16,6:c=0 
beep: locate 8,3+c,0:print "==> "; 
beep: if ms=0 THEN color 0,7 ELSE color 0,6 

PRINT "Invalid CARD Number, Try Again" 
beep:if ms=0 THEN color 15,0 ELSE color 15 4 

BEEP:LOCATE 21, 12+c:PRINT STRING? (15, 255 ): LOCATE 21, 12+c,l:RC=2: RETURN 

Rhn 

11690 REM B Wait for HOST REQOOOOORE Screen 

GOSUB 11810: if rc=l THEN RETURN 

IF MID$(MSG§.4,10)="REQOOOOOHD" THEN RC=0:RETURN 
IF MID$(MSG$,4,3)="WR0" THEN 11740 

P$-'NO":C$="REQ not received" : GOSUB 11250:GOSUB 12650:GOTO 11690 
11740 beep: if ms=0 THEN color 16,7:c=20 ELSE color 16, 6 -0=0 
beep: locate 8,3+c,0:print "=> 
beep: if ms=0 THEN color 0,7 ELSE color 0,6 

PRINT "Invalid PASS Number, Try Again" 
beep: if ms=0 THEN color 15,0 ELSE color 15 2 
^beep:LOCATE 21.12+c:PRINT STOING? (15, 255 ): LOCATE 21,12+c,l:RC=2:RETURN 

11810 REM B Wait for Host Next Screen fl 

MP=PT(PN,0):B$="" 

11830 REM B$=INKEy$:IF B$="" THEN 11840 ELSE RETURN • 9-9,.«9 

11840 LINE INPUT #1,MSG$:G0SUB 12700 " 
IF LEN(MSG$)>1 IMEN MSG§=RIGHT$(MSG$,LEN(MSG$)-2) ELSE 11830 
MSGA$(MP)=MSG$:MP=MP+1:IF MSG$ o "#/++/#" THEN 11830 
11870 IF EOF(l) THEN 11870 

MSG$=INPUT$(L0C(1),#1):IF RIGHT? (MSG§ , 1) <> CHR$(17) THEN 11870 
PT(PN, l)=MP-2 : PT(PN+1 , 0)=MP- 1 :MP=PT(PN,0) 
11880 MSG$=MSGA?(MP) 

IF LEFT$(MSG$,8) 0K/@//" IBEN RC=0:RETURN 

IF LEFT? (MSG? , 10)="j'/@/EXIT/(a#" THEN RC=1 : RETURN 
IF LEFT? (MSG?, 3) ="m" THEN RC=2:RETURN 

IF LEFT? (MSG?, 3) ="mr THEN RC=3: RETURN 

MP=MP+1: GOTO 11880 
REM 



as 
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11950 REM B Wait for Host Reply CHR$(17') -- 

11960 REM K$=INKEy$:IF K§="" THEN 11970 ELSE RETURN ' 9-23-82 

11970 IF EOF(l) THEN 11960 

MSG$=RIGHT$ (MSG$+RIGHT$ (INPUT$ (LOC(l) Jl) , 72) , 72) :GOSUB 12700 
IF RIGHT$(MSG$,1)=CHR$(17) THEN RETURN ELSE 11960 
REM 

12010 REM I Wait For Host Reply C$ fl 

MSG$="": 

12030 FOR 1=1 TO 5000: IF EOF(l) THEN next i:RETURN 

MSG$=RIGHT$(MSG$+INPUT$(L0C(1) .fKl) ,72) :GOSUB 12700 
FOR 1=1 TO LEN(MSG$)-LEN(C$) 

IF MID§(MSG$,I,LEN(C$))=C$ THEN RETURN 
NEXT I: GOTO 12030 
REM 

12090 REM BDisplay credit card screen E 

if ms=0 THEN color 7,0,0:c=20 ELSE color 0,3,3: c=0 
CLS:width 40:L0CATE 10, 3+c,0: PRINT "Please Enter Your": 

LOCATE 13, 3+c,0: PRINT "Do Not Leave Any Blanks" 
LOCATE 'i8,3+c,0: PRINT "THEN Press" 
LOCATE 21, 3+c,0: PRINT STRING$(7,61)+CHR$(62) 
if ms=0 THEN color 0,7 ELSE color 15,3 

LOCATE 10,21+c,0:PRINT "CREDIT CARD NUMBER" 
if nis=0 THEN color 0,7 ELSE color 15,1 

LOCATE 17, 14+c,0: PRINT CHR$(218)+STRING$C7,196)+CHR$(191) 
LOCATE 18, 14+c,0: PRINT CHR$(179)+STRING$(7,255)+CHR$(179) 
LOCATE 19, 14+c,0: PRINT CHR$(192)+STRING$(7,196)+CHR§(217) 
LOCATE 18,16+c,0:PRINT "ENTER" : return 

REM 

12230 REM 0 Display User Entered Credit Card Number B 

if ms=0 THEN color 0,7 ELSE color 15,3 

LOCATE 21,12+c,l:P$="" : ISW=0 
GOSUB 12860: IF K$="e" THEN RETURN 

LOCATE 8,l+c:PRINT LEFT? (BLNK$ ,40) ;: LOCATE 21,12+c,l 
12280 P$=RIGHT$(P$+K$, 15): LOCATE 21, 12+c,l: PRINT P$; 

GOSUB 12860: IF K?="e" THEN RETURN ELSE 12280 

REM 

1*310 REM BDisplay Password screen B 

if ins=0 THEN color 7,0,0:c=20 ELSE color 0,2,2:c=0 
CLS: width 40: LOCATE 10, 3+c,0: PRINT "Please Enter Your": 

LOCATE 13, 3+c,0: PRINT "Do Not Leave Any Blanks" 
LOCATE 18, 3+c,0: PRINT "THEN Press" 
LOCATE 21, 3+c,0: PRINT STRING$(7,61)+CHR$(62) 
if ms=0 THEN color 0,7 ELSE color 15,2 

LOCATE 10,21+c,0:PRINT "PASS NUMBER" 
if ins=0 THEN color 0,7 ELSE color 15,1 

LOCATE 17,14+c,0:PRINT CHR$(218)+STRING$C7,196)+CHR$(191) 
LOCATE 18, 14+c,0: PRINT CHR$(179)+STRING$(7,255)+CHR$(179) 
LOCATE 19, 14+c,0: PRINT CHR$(192)+STRING$(7,196)+CHR$(217) 
LOCATE 18, 16+c,0: PRINT "ENTER" : return 

REM 
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12A50 REM D Display User Entered Pass Number B - 

if ins=0 THEN color 0,7 ELSE color 15,2 

LOCATE 21,12+c,l:P$="" : ISW=0 
GOSUB 12860: IF K§="e" THEN RETURN 

LOCATE 8,l+c:PRINT LEFT? (BLNK$ ,40) ;: LOCATE 21,12+c,l 
12500 P$=RIGHT$(P$+K$,6):PRINT 

GOSUB 12860: IF K$="e" THEN RETURN ELSE 12500 

rem 

12S30 REM B Display Logo Screen B 

if ms=l THEN color 15,l,l:c=l ELSE color 15,0,0:c=21 
CLS:OPEN LOGO$ FOR INPUT AS #3 

FOR 1=2 TO 23:INPUT #3,K$:L0CATE I,c,0:PRINT KS;:NEXT 
CLOSE #3: RETURN 
REM 

12590 REM B Please Wait Screen B - 

if ms=0 THEN color 0,7,7 :c=20 

width 40:owid=40:CLS: if ras=i THEN color 0,6,6: CLS: c=0 
LOCATE 10, 15+c,0: PRINT "Please Wait" 

LOCATE 13,5+c,0: PRINT "Your Request is being Processed"; : RETURN 
REM 

12650 REM B Display C$, line 1 , Center E 

c=l:if ms=l THEN color 0,6 ELSE color 0,7: if owid=40 THEN c=21 
LOCATE l,c,0:PRINT LEFT$(BLNK$,owid"2) ; :X=((owid-2)-LEN(C$))\2 
LOCATE 1,X,0:PRINT " "+C$+" "-RETURN 

REM 

12700 REM E Display flashing square at line 20, Center E 

RETURN 

if n<>0 THEN color 7,0:n=0 ELSE color 0,7:n=l 
if ms=l THEN c=39 ELSE c=79 
locate l,c,0:print chr§(220) ; :RETURN 
REM 

12750 REM B Set Parameters B 

color 15, 0,0: CLS: locate 1,1 

12770 print "Do you want the VideoDisc Player ? (y/n) ";: K$=LEFT$(DS$ 15 
if (K$="y" or K$="Y") THEN ds=l:print "- YES" : print : GOTO 12810 
if (K$="n" or K$^"N") THEN ds=0:print "- NO ":print:GOTO 12810 
::wr r-r-/ print "" ??, Try Again": GOTO 12770 

12810 print "Do you have a Color Monitor ? (y/n) KS=LEFT$(MS$ 1) 
if (K§="y" or K$="y") THEN ras=l:print "- YES":RETURN 
if (K§="n" or K$="N") THEN ms=0:print "- NO ":RETURN 
print "- ??, TRY AGAIN": GOTO 12810 
rem 

REM B Set Paramter for Autodial or Manual Dial fl 

12850 print 

print "Please press 1 for Auto-dial" 
print " OR press 2 for Manual -dial" 
12855 K$=INKEY$: IF K§="" THEN 12855 ELSE BEEP 

if K$="l" THEN DIAL=1: PRINT "-AUTO-DIAL": RETURN 
if K$="2" THEN DIAL=2: PRINT "-MANUAL-DIAL": RETURN 
PRINT "-??, TRY AGAIN": GOTO 12850 
REM 
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12860 REM B Wait for User to hit a NEW Key Q 

12870 K$=INKEY$:if K$<>"" THEN 12870 ' Clear Keys 
12880 K$=INKEY$:IF K$="" THEN 12880 ELSE beep: RETURN 
REM 

12900 REM E Process Screen PN fi - 

IF LRUFD=1 THEN 13100 
12930 FOR I=PT(PN,0) TO PT(PN,1) 
B$=LEFT$(MSGA$(I),3) 

IF B$=SID§ THEN GOSUB 13290: GOTO 13040 ' Process Screen ID 
IF B$=VDC$ THEN GOSUB 14250: GOTO 13040 ' Process Video Command 
IF B$=SCH$ THEN GOSUB 13330: GOTO 13040 ' Process Screen Header 
IF B$=LF$ THEN GOSUB 13650: GOTO 13040 ' Process List Follows . 
IF B$=RES$ THEN GOSUB 14200: GOTO 13040 ' Process Response 
IF B$=DNC$ THEN GOSUB 14300: GOTO 13040 ' Do not cache screen 
IF B$=ANE$ THEN GOSUB 14330: GOTO 13040 ' Accept numeric entry 
IF B$=PAZ$ THEN GOSUB 15410: GOTO 13040 ' Pause until last cmd done 
IF B§=IGN$ THEN 13040 * Bad Message found 

B$=IGN$: MSGA$(I)=B$+MSGA$(I) ' Flag Bad Messages 1-07-83 

13040 NEXT I 

IF SCB$(17)="" THEN RETURN 

GOSUB 15850: RETURN 'Print message for more text 

REM 

13100 GOSUB 13260 **D* Copy saved screen into MSGA$ array 

GOSUB 13270 '*DD* Does stack have saved screen? 

GOTO 12930 '^DDD* 
rem 

REM B Copy Saved Screen into MSGA$ array Q 

13260 NN=0 

FOR 11=0 TO 50: MSGA$(II)="": NEXT II 
JFOR NREC%=IPT(INS,0) TO IPT(INS,1) 
GET #4, NREC% 
N1$=S1$: GOSUB 13265 
NEXT NREC% ' "Dl* 

GOSUB 13269 

RETURN ' ' *EE* Return to *DD* 

REM 

- 13265 REM B Separate record into sections and put in MSGA$ array B 
N$=N1§ 

NRCI^VAL CLEFT§ (N§ , 2) ) 
N§=MID§(N$,3,LEN(N$)) 

FOR N=l TO NRCT 

LMSG=VAL(LEFT$ (N$ ,2)) 

NN=NN+1: MSGA$(NN)=MID$(N$,3,LMSG) 

LSTRT==LMSG+3 : N$=MID $ (N§ , LSTRT , LEN (N$ ) ) 

NEXT N 

RETURN ' Return to -Dl* 

REM 
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REM B Set PT -values Q - - 

13269 PT(1,0)= 1: PT(1,1)=NN: PN=1 

RETURN ' Return to ^'^EE* 

REM 

REM I Update stack after saved screen was found f 

13270 FOR KK=0 TO ISTK 

IF STK$(KK)<>NSN$ THEN 13275 ELSE RETURN 'Return to *DDD* 

13275 NEXT KK 

IF STK$(ISTK)<>"" THEN 13280 ELSE 13285 
13280 ISTK=ISTK+1 
13285 STK$ (ISTK)=NSN$ 

ISTK=ISTK+1: RETURN 'Return to ^^DDD* 

rem 

13290 REM B Process Screen ID B 

FOR J=l TO 22:SCB$(J)="":NEXT J:SCB$(13)='*B":SCB$(14)="n" 

NS$==MID$(MSGA$(I),4,LEN{MSGA$(I))-6):SCB$(G)=NS$:ss=0:RETURN 
REM 

13330 REM B Process Screen Header B 

GOSUB 14070 :GOSUB 14030: IF LINS=0 THEN RETURN 

GOSUB 13990: if ins=0 THEN fc=15:bc=0 

if ss=0 THEN 13340 

COLOR FC,BC: GOTO 13350 
13340 color fc,bc,bc: CLS:ss=l 
13350 IF FONT=0 THEN 13440 ELSE i=i+l 

FOR J=0 TO 9 

IF (MSGA$(I)=FONTT$(J) AND FONT=FONTV(J) ) THEN 13410 
NEXT J: PRINT "FONT ERROR" 

GOSUB 41000: END ' Save Cached Screens on disk 

13410 OPEN FONTF$(J) FOR INPUT AS #3 
FOR J=0 TO FONT-1 

INPUT #3. B$: LOCATE RLOC+J,CLOC,0: PRINT B$; 
NEXT J: CLOSE #3 

GOSUB 13490 ' Clear Stack 

RETURN '*E* Return to "Process Screen Header" 

REM 

13440 FOR J=0 TO LINS-1 ' 

.LOCATE RLOC+J, CLOG, 0: PRINT LEFT$ CBLNK$ ,HW) 
1=1+1 

GOSUB 13500 • Check for valid message header 1-07-83 

LOCATE RLOC+J, CLOC,0: PRINT MID$ (MSGA§ (1) ,4,LEN(MSGA$ (I))-6) ; 
NEXT JrRETURN 'Return to "Process Screen Header" 

REM 

13490 REM B Clear Stack B ~ 

FOR NN=1 TO 50:STK$(NN)="": NEXT NN 

ISTK=1: NSAV=0: ' RETURN 'Return to *E*. 

REM B Check if message is a TEXT type TXT$ B 1-07-83 

13500 BB$=LEFT§(MSGA$(I),3) 

IF BB$=TXT$ THEN RETURN 
MSGA$(I)=IGN$+MSGA$(I): 1=1+1 
IF I>PT(PN,1) THEN 13510 ELSE 13500 
13510 PRINT "13510 - ERROR: TXT$ msg should follow scr hdr": GOTO 10560 
REM 
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.13650 REM B Process List Follows Q 

GOSUB 1A070:GOSUB 14030: IF LINS=0 THEN RETURN 

HW=HW+A:GOSUB 13990: if ms=0 THEN fc=15:bc=0 

GOSUB 13760 ' Print . ********* 

FOR J=l TO LINS ' 

GOSUB 13800 • Print | l|*Vf*Vnv** *****Vrff** 

GOSUB 13900 • Print +--+******* *;v******* 

NEXT J 

GOSUB 13950 ' Print +— 

RETURN ' RETURN 

REM 

13760 REM B Print +--+******* ... *vr,v****** g _ 

COLOR 0,7:LOCA're RLOC , CLOG , 0 : PRINT CHR$(218)+STRING$(2,196)+CHR$(191)" 
COLOR FC , BC : LOCATE RLOC , CLOC+4 , 0 : PRINT STRING$ (HW-4 , 255 ) ; : RETURN 
REM 

13800 REM E Print | 1|*5V***** *^v*,va*** Q _ _ 

COLOR 0,7: LOCATE RL0C+(2*J)-i,CL0C,0 

PRINT CHR$(179)+CHR$ (255)+MID$(NUM$, J, 1)+CHR$ (179) ; 

COLOR FC.BC: 1=1+1 

GOSUB 13870 ' Check for valid LIT$ msg header 1-07-83 

LOCATE RLOC+ (2* J) -1, CLOC+4, 0: PRINT STRING? (HW-4, 255): 

MSG$=MID$ (MSGA$ ( I ) , 4 , LEN (MSGA§ ( I ) ) -6) : K=0 
13860 K=K+1: IF MID$(MSG$,K+1,2)<>":1" THEN 13860 

LOCATE RLOC+ (2* J) -1, CLOC+4, 0: PRINT MID$(MSG$,1,K): 

SCB$ ( J)=MID$ (MSG$ , K+3, LEN (MSG$ ) - (K+2) ) : RETURN 
REM 

REM B Check for valid LIT$ message header Q 1-07-83 

13870 BB?=LEFT$(MSGA$(I),3) 

IF BB$=LIT$ THEN RETURN 
MSGA$(I)=IGN$+MSGA?(I): 1=1+1 
IF I>PT(PN,1) THEN 13880 ELSE 13870 
13880 PRINT "13880 -ERROR: List item should follow ": GOTO 10560 
REM 

13900 REM B Print +--+*****?v* ... ********* g 

COLOR 0,7: LOCATE RL0C+(2*J) ,CLOC,0 ~" 
PRINT CHR§ ( 195)+STRING$ (2, 196)+CHR$ ( 180) ; 

COLOR.FC,BC:LOCATE RLOC+(2*J),CLOC+4.0:PRINT STRING§(HW-4,255): :RETURN 
REM 

13950 REM 0 Print +— + g - 

COLOR 0,7: LOCATE RL0C+(2*LINS) ,CLOC,0 

PRINT CHR$(192)+STRING$(2,196)+CHR§(217); :RETURN 
REM 

13990 REM i Set Column Location fl - „ 

if (ms-0 and wid=40) THEN c-20 ELSE c=0 

IF CLOCOO THEN RETURN ELSE CLOC=c+( (WID"HW)\ 2) : RETURN 
REM 

14030 REM 0 Set Width fl 

IF OWID=VID THEN RETURN 
WIDTH WID:owid=wid: RETURN 
REM 



0140302 

30 



14070 REM 0 Set Screen Parameters D 

J=4:MSG$=MSGA?(I) 

GOSUB 14170:WID=VAL(HID$(MSG$,J.K)):J=J+K+1 
GOSUB 14170:LINS=VAL(M1D$(HSG$, J.K)) : J=J+K+1 
GOSUB 14170:HW =VAL(MID$(MSG?,J.K)):J=J+K+1 
GOSUB 14170:FC =VAL(MID$(MSG$,J,K)) : J=J+K+1 
GOSUB 14170:BC =VAL(MID§(MSG$,J,K)) : J=J+K+1 
GOSUB 14170:F0NT=VAL(HID$(MSG$,J,K)) : J=J+K+1 
GOSUB 14 170 : RL0C=VAL (MID? (MSG$ . J , K) ) : J=J+K+1 

14170 K=Jf^^"^°^^"^'^"'2)=CL0C=VAL(MID$(NSG$,J.K)):RETURN 

^"^"^ REr^""^'^^ MID$(MSG$.J+K.1)<>"." TOEN 14180 ELSE RETURN 

14200 REM G Process Response fi 

SCB$ (K+10)=MID? (MSGA? (I) ,7,KLNG) 

RETURN - . . - 

REM 

14250 REM B Process Video Command 0 

IF DS=0 THEN RETURN 

REM 

REM B Check for valid VDCS message header B~ , « 

14260 BB$=LEFT$(MSGA$(I),3) age header B i-07-83 

IF BB$=VDC$ THEN RETURN 
MSGA$(I)=IGN$+MSGA$(I): 1=1+1 

I>PT(PN,1) THEN 14270 ELSE 14260 

NSAV=1 " 

t/fin m^ri^ 'Return to "Do not cache screen" 

14330 REM H Accept numeric entries B screen 

FOR J=l TO 9 

IF SCB$CJ)="" THEN SCB$(J)="x" 
NEXT JrRETURN 
rem 

14380 REM fl Video Player Command Processing B 

IF DS=0 THEN RETURN ~ 

yCKF$=RIGHT$ (YW$,2) 



IF (YCKF$= CO" OR yCKF§="C0") THEN 14460 ' Search 
IF CYCKF$="c2" OR YCKF$="C2") THEN 14510 ' Autoston 
IF (YCKF$="c3" OR YCKF$="C3" THEN 14560 ' Ston ^ 
IF (YCKF$="c5" OR YCKF ="C5" THEN 146o2 ' Frame Number 
lll^ fiaSo?=r^^ l,l:print;.Video Command 1^^^^^^ 
rem Cached Screens on Disk 
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14460 REM B Video Search fl ' 

YCKS$="7":yCKF$=LEFT§(YW$,LEN(YV$)-2) :GOSUB 14650 
14480 IF LEN(yCKF§)<5 THEN YCKF$="0"+yCKF§ :GOTO 14480 

YSM$=ySM$+"F7" : VCMD$=ySM$ : GOSUB 15000 : RETURN 
rem 

14510 REM fl Video Autostop fl 

yCKS$="8":YCKF$=LEFT$CYW$,LEN(yW$)-2) :GOSUB 14650 

14530 IF LEN(yCKF$)<5 THEN YCKF$="0"+YCKF$ :GOTO 14530 
YSM$=YSM$+"F3": GOSUB 15000 :RETURN 
rem 

14560 REM B Video Stop - 

yCKS$="3":yGKF$="N" 
YSM$="BFFB": GOSUB 15000: RETURN 
rem 

14600 REM B Video Frame Number B 

YCKS$="N":YCKF$="N" 
YSM$="EA": GOSUB 15000 
GOSUB 14810 :VF$=yVF$ -.RETURN 
rem 

14650 REM fl Convert Number fi " 

ysM$="" 

FOR YI=1 to len(yckf$) 
YV§=MID$(yGKF$,yi,l) 

IF YV$="0" THEN YSM$=YSM$-f"3F" :G0T0 14790 
IF yV$="l" THEN YSM§=YSM$+"0F":G0T0 14790 
IF YV$="2" THEN YSM$=ySM$+"8F":G0T0 14790 
IF YV$="3" THEN YSM$=YSM$+"4F" :GOTO 14790 
IF yv$="4" THEN YSM$=YSM$+"2F":G0T0 14790 
IF YV$="5" THEN YSM$=YSM§+"AF" :GOT0 14790 
IF YV§="6" THEN YSM$=ySM$+"6F" :G0T0 14790 
IF YV$="7" THEN YSM$==YSM$+"1F" :G0T0 14790 
IF YV$="8" THEN YSM$=YSM$+"9F":G0T0 14790 
IF YV$="9" THEN YSM$=ySM$+"5F" 
14790 NEXT YI:RETURN 
rem 

14810 REM fl Convert Frame Number and store in yVF fl 

YB$=MID$ (YRM$ ,2,1): GOSUB 14920 : YVF ! =YVN 

yB$=MID$(YRM$, 1,1): GOSUB 14920 :YVG! =16 : GOSUB 14910 
YB$=MID$(YRM$,4,1):G0SUB 14920 :YVG!=256: GOSUB 14910 
YB$=MID?(YRM$,3,1):G0SUB 14920 :YVG! =4096: GOSUB 14910 
YVF$=STR?(YVF!) 
14870 IF LEFT$(YVF$,1) o " " THEN 14890 

YVF$=RIGHT$(YVF$,LEN(YVF$)-1):G0T0 14870 

14890 IF LEN(YVF$)=5 THEN RETURN 

yVF$="0"+YVF$:G0TO 14890 
149 10 YVF ! =YVF ! + ( YVG ! *YVN ) : RETURN 
14920 IF YB$="A" THEN YVN=10 :RETURN 

IF YB$="B" THEN YYN=11:RETURN 

IF YB$="C" THEN YVN=12: RETURN 

IF YB§=="D" THEN YVN=13:RETURN 

IF yB$="E" THEN YVN=14:RETURN 

IF YB$="F" THEN YVN=15 : RETURN 

YVN=VALCYB§) : RETURN 
rem 
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15000 REM B Send ySM$ To Player, wait for yRM$ fl 

if ds=0 THEN return 
GOSUB 15110 

YRM$="": PRINT #2, "DO": GOSUB 15110 
FOR YI=1 TO LENCYSM?) STEP 2 
PRINT #2,MID$(YSM5,YI,2) 
15040 FOR YDD!=1 TO YDYI 

IF E0F(2) THEN 15080 
YRM$=YRM$+INPUT$ (L0C(2) ,#2) 

IF RIGHT? (YRM$,1)=CHR$( 10) THEN 15090 ELSE 15040 
15080 NEXT YDDI 

15090 NEXT YI:PRINT #2,"Dl":G0SUB 15110 

IF LEFT§(YRM$,1)="!" THEN GOTO 15130 ELSE RETURN 
15110 FOR YDD!=1 TO YDY! :YDY!=YDY! :NEXT YDD!:RETURN 
rem 

15130 REM D UEI ERror E " " - - 

GOSUB 15320:YB$=LEFT$(YRM$,3) 
IF yB§="t02" THEN YRM$="Overrun Condition 
IF YB$="!01" THEN yRM$="ASCII Parity Error 
IF yB$="!03" THEN YRM$="lnterf ace Framing Error" 
IF YB$="!10" THEN YRM$="Link Fault Detected 
IF YB§="!12" THEN YRM$="RAM dump Checksum Error" 
IF YB$="!13" THEN YRM$="Link Initialization Err" 
IF YB§="!14" THEN YRM$="UEI Link Not Activated " 
IF YB§="!20" THEN YRM$="Command Stack Overflow " 
IF YB$="!21" THEN YRM$="ASCII Char, Not Hex 
IF YB$="!22" THEN YRM$="lnvalid Player Command " 
YRM$="???? Unknown Error 

rem 

15270 REM B Increase UEI Delay and Resend Message fl 

YDY!=YDY!+50 

FOR XI= 1 TO 5000: NEXT XI 

IF-YDYKIOOOO! THEN 15000 ELSE GOSUB 41000: END 
rem 

15320 REM B Print UEI Message yRM$ B 

RETURN 

color 7,0,0:CLS:locate 1,1:PRINT " ^ 
FOR YI=1 TO LEN(YRM$) 

YB$=:MID$(YRM$,YI,1) 

IF YB$=CHR$(10) THEN YB§=CHR$(221) 

IF YB$=CHR$(13) IHEN YB$=CHR$(220) 

PRINT YB§; 
NEXT YI: PRINT: RETURN 
rem 
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:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 
:GOTO 



15270 
15270 
15270 
15270 
15270 
15270 
15270 
15270 
15270 
15270 
15270 



9-23-82 
9-23-82 



UEI ERROR= 
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15410 REM n Check for Completion of Command YSM? fl 

IF (YCKS$="N" OR DS=0) THEN 15660 
15430 YSM§="EB" : GOSUB 15000 : YQ$=MID§ (YRM§ ,2,1) 
IF (YCKS$="3" AND YQ$="3") THEN 15660 ' 
IF (YCKS§="S" AND YQ$="8") THEN 15660 
IF (YCKS$="8" AND YQ?="7") THEN 15640 
IF (YCKS$="7" AND YQ$="7") THEN 15640 
' THEN 15430 

THEN YSM$="FD":G0T0 15630 
THEN YSM§="BFFB":G0T0 15630 
THEN YSM$=VCMD$:G0T0 15630 
THEN YSM$="BFFB":G0T0 15630 
THEN YSM$="BFFB":GOTO 15630 
THEN YSM$="F9":G0T0 15630 
THEN YSM$=VCMD$:GOTO 15630 
THEN YSM$=VCMD$:G0T0 15630 
THEN YSM$="BFFB":G0T0 15630 
THEN YSM$="BFFB":GOTO 15630 
THEN YSM$="EF":G0T0 15630 
THEN YSM$="F9":G0T0 15630 
THEN YSM$="F9":G0T0 15630 
YSM$=clir$(27):G0T0 15630 
15630 GOSUB 15000: GOTO 15430 
15640 YSM$="EA": GOSUB 15000: GOSUB 14810 

IF YCKr$<>YVF$ THEN YRC=1: RETURN 
15660 YRC=0: RETURN 
REM 

15680 REM Q Save SCreen coming from host 

IF NSAV=1 THEN 15720 
IF ITOI^NMAX THEN 15685 
IPT(INS,0)=(INS-1)^^NBL0K+1 
IREC%=IPTCINS,0) 



IF YQ$="0" 
IF YQ$="1" 
IF YQ$="2" 
IF YQ$="3" 
IF YQ$="4" 
IF YQ$="5" 
IF YQ$="6" 
IF YQ$="7* 
IF YQ$="8" 
IF YQ$="9' 
IF YQ$'="A" 
IF YQ$="B' 
IF YQ§="C" 
IF YQ$="D'' 



Stop 
Autostop 
Search Done 
Search Done 
Transition 
Park to Play 
Play to Stop 
Stop to Last Cmd 
Slo Fwd to Stop 
Slo Rev to Stop 
Focus to Park 
Search to Last Cmd 
Autostop - Last Cmd 
Input (stp) Stop 
Input (ply) Stop 
Wrt Prog to END PG 
Soft Rejt Park 
Med. Rejt Park 
? to Software Reset 



15685 



15690 



15700 
15710 
15720 
15725 

15730 



RETURN 

1=1-1: NRCT=0 



RETURN 



'*M1* 
'*M2* 



I=PT(PN.O): NRCT=0 

GOSUB 15800 ' Check if msg header is IGN$-ignore 1-07-83 

IF IL=1 THEN 15725 

IF (LEN(M1$) + LEN(MSGA$(I)))>508 THEN 15700 
NRCT=NRCT+1 

LMSG$=STR§ (LEN (MSGA$ (I ) ) ) 
M1$=M1$+RIGHT§ (LMSG$ ,2)+MSGA§ (I) 
IF I<PT(PN,1) THEN 15710 

M1§=R1GHT$(STR$(NRCT),2) + Ml$ : GOSUB 15730: 
M1$=RIGHT$(STR§(NRCT),2) + Ml§ : GOSUB 15730: 
1=1+1: IF I>PTCPN,1) THEN 15720 ELSE 15690 
RETURN ' Return to *A* 

M1$=RIGHT$(STR$(NRCT),2) + Ml? : GOSUB 15730: 
REM 

REM B Write one record out on disk H 

LSET S1$=M1$ 

PUT #4, IREC% 

Ml$="": IREC%=IREC%+1 

RETURN 
REM 
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157A0 REM 11 Put ending record number in array IPT fl 
IPT(INS,1)=IREC%-1: RETURN 
REM 

REM 0 Check if msg header is type IGN$ - ignore 0 1-07-83 

15800 IL=0: BB$=LEFT$ (MSGA$ (I) ,3) 

IF BB$=IGN$ THEN 15810 ELSE RETURN 
15810 1=1+1: IF I>PT(PN,1) THEN IIi=l: RETURN 
GOTO 15800 
REM 

15830 REM B Update the stack of saved screens B 

GOSUB 15840 * Check if msg type is screen ID 1-07-83 

LN=LEN(MSGA$ (PT(PN, 0) ) ) -6 
STK$ (ISTK)=MID§ (MSGA$ (PT(PN , 0) ) ,4 ,LN) 
ISTK=ISTK+1 

RETURN • Return to -^b* or *B2* 

REM 

REM {} Check if message type is screen ID Q *l-07-83 

15840 NT^PT(PN,0) 

= 15842 BB$=LEFT$CMSGA$(NT),3): IF BB$<>SID$ THEN 15845 ELSE RETURN 

15845 NT=NT+1: IF NT>PT(PN,1) THEN 15846 ELSE 15842 

15846 PRINT ''15846 - ERROR Scr. ID not found GOTO 10560 
REM 

REM Q Print message: For more information: push MORE TEXT B 

15850 C§="For more information: push MORE TEXT" 
GOSUB 12650 

RETURN 'Return to 

rem 

15890 REM B Select Monitor B - - - 

if ms=0 THEN 15940 

DEF SEG=0:P0KE &H410, (PEEK(&H410) AND &HCF) OR &H20 
WIDTH 40:SCREEN 0, 1 ,0,0: LOCATE 1 , 1 ,0, 6 , 7 :KEy OFF 
WIDTH 40:SCREEN 0, 1 ,0,0:LOCATE 1 , 1 .0, 6, 7 :KEy OFF:RETURN 
15940 def seg=0:POKE &H410,PEEK(&H410) OR &H30 

WIDTH 40:SCREEN 0,0,0,0:LOCATE 1, 1,0, 12, 13:KEY OFF 
WIDTH 40:SCREEN 0,0,0,0:LOCATE 1,1,0, 12, 13:KEY 0FF:RETURN 
rem 

16000 REM B Initialize for New Customer B 

NSN?="REQ0O000HD": STK$(0)= NSN$ 

FOR II=:1 TO ISTK: STK$(II)="": NEXT II 

ISTK=1 

GOSUB 40400 ' Search LRU 

16010 RETURN 
rem 
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16070 REM D Start Video Disc Player fl 

close //1:WIDTH "coml:",255: if ds=0 THEN RETURN 

CLOSE //2:0PEN "com2: 1200,E,7 , 1 ,CS ,DS" AS //2 '12-06-82 
YSMS="E3E5E7":GOSUB 15000:GOTO 16120 ' Disp-off, Audio2-of f ,Audiol-of f 
16110 YSM$="FD":G0SUB 15000 

16120 YSM$="EB":G0SUB 15000:YQ$=11ID$(YRM$,2, 1) 
IF YQ§="0" THEN 16120 ' Transition 
IF YQ$="1" THEN 16110 " Park to Play 
if yq$<>"3" THEN YSM$=*'BFFB":G0SUB 15000: GOTO 16120 
YV$="6600C0":G0SUB 14380 iGOSUB 15410: return ' Get to Frame 10 
rem 

16180 REM B R^n Time Error Programs B 

IF ERR=57 THEN 16220 ELSE IF ERR <> 24 THEN 16210 ELSE 16200 

16200 CLOSE #1:0PEN "coml: 1200,ra,7,2,DS,CD" AS #1 

16210 ON ERROR GOTO 0 

16220 RESUME 
REM 

16300 REM B Check if Screen ID is same as screen currently displayed B 

IF K$="n" THEN 16320 

GOSUB 16400 * Check if scr. header valid 1-07-83 

LN=LEN(MSGA$ (MP+1) ) -6 

TEMP$=MID$CMSGA$(MP+1),4,LN) 

IF NSN$=^MP§ THEN 16320 
16310 SD$=NSN5: NSN$=TEMP§ 

SCROK=0: GOSUB 40400 

IF LRUFD=1 THEN RETURN 

GOSUB 16500 
16320 SCR0K=1 : RETURN 
REM 
REM 

16400 REM BCheck if screen header is valid B — 1-07-83 

NT=MP 
16405 NT=NT+l" 

16410 BB§=LEFT$(MSGA$(NT) ,3) 

IF BB$<>SID$ THEN 16420 ELSE RETURN 
16420 IF NT=PT(PN,1) THEN 16430 ELSE 16405 

16430 PRINT "16430 - ERROR - msg after OK not a screen ID GOTO 10560 
REM 

16500 REM B Print an error screen B 

if ms-0 THEN color 7,0,0 ELSE color 0,1,1 
CLS: WIDTH 40 

LOCATE 3,1,0: PRINT "SYSTEM ERROR" 
LOCATE 4,1,0: PRINT "Screen Desired is " SD$ 
LOCATE 5,1,0: PRINT "HOST Sent " TEMP$ " ;N0T in LRU" 
LOCATE 6,1,0: PRINT "Please press -n- for NEW REQUEST" 
RETURN 'Return to *CSID* 

REM 

REM B Test for size of screen * 
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17000 SUM=0: BLCTR=0: NSAV=0 

NN=PT(PN,0) 
17010 SUM=SUM+LEN(MSGA$ (NN))+2 

IF SUM<511 THEN 17100 

SUM=0: BLCTR=BLCTR+1: GOTO 17010 
17100 IF NN=PT(PN,1) THEN 17110 

NN=NN+1: GOTO 17010 
17110 BLCTR=BLCTR+1 

IF BLCTR<NBL0K+1 THEN RETURN 

NSAV=1: RETURN 
REM 

REM B Check if Disk is full D"" - 
18000 IF ITOT-NMAX THEN 18010 ELSE RETURN 
18010 GOSUB 18100 'DELETE ONE FROM LRU 

RETURN 

REM 

REM B DELETE A BLOCK FROM THE LRU | 

18100 INS=NLAST 

LRU§ (NLAST, 1)="0" : LRU§ (NLAST, 0)="" 
IT=VAL ( LRU$ (NLAST , 2 ) ) 
LRU$(IT,1)=STR$(0) 
NLAST=IT 
RETURN 
REM 

20000 REM E Initialize B - 

ON ERROR GOTO 0:ON ERROR GOTO 16180 

SID$="@#%" : SCH$="@#/" : SKP§="@#+" : LF$="@%/" : LIT$="(a%+" : ANE$="%@#" 
TXT$='V/@/" : VDC$='V/%/'^RLM§='V+" :RES$='V/@%'^EOS$=^^^^^ 
PAZ$='V//%":NUM$="l234567890,.bnecmhqzwx":0VID=40:VF$="": Ml$="" 
RSP$="'V/BNECMHQ2WX" :FONTT§ (0)='V/<a/REQUEST/@#" :FONTV(0)=7 
FONTF$(0)=REQ$:ydy!=150:BLNK§=STRING$(79,255): IGN§="###" 
ISTK=0: NSAV=0 : IREC%=1: NRUN=0: LRUFD=0 
RETURN 

rem 

REM B Play a G then a C 

30000 PLAY "03L4GC": RETURN 
REM 

REM B Set NSN$ = Screen ID 11-22-82 

39000 XT=Fr(PN,0): LN=LEN(MSGA$ (XT))-6 : NSN$= MID$(MSGA$(XT) ,4,LN) : RETURN 
REM 

REM B Check if screen is a BAD screen - Don't save B 

39100 FOR N= 0 TO NBAD 

IF NSN$=BADS?(N) THEN 39110 
NEXT N 
RETURN 
39110 NSAV=1: RETURN 
REM 

39800 REM B Open Random File on Disk to Cache Screens B 

OPEN DSKR$ AS #4 LEN=512 
FIELD //4, 512 AS SI? 

RETURN ' Return to LI 

rem 

REM B Read in Screens not to be saved - patch coding B 
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39900 OPEN BSCR$ FOR INPUT AS //5 
JK=0 

39910 IF E0F(5) THEN 39950 

INPUT #5, BADS$(JK) 

JK=JK41: GOTO 39910 
39950 CLOSE #5: NBAD=JK-1: RETURN 
REM 

REM 0 READ THE LRU LIST FROM DISK 

AOOOO OPEN DSKL$ FOR INPUT AS #5 
JK=0 

AOOlO IF E0F(5) THEN 40050 

INPUT #5, LRU$CJK,0), LRU$(JK,1), LRU$(JK,2), IB$, IND$ 

IPT(JK,0)=VAL(IB$): IPT(JK, 1)=VAL(IND$) 

JK=JK+1: GOTO 40010 
40050 CLOSE y/5: NBL0K=VAL(LRU$(0,2)) : NLAST=IPT(0, 1) 

NMAX==300/NBLOK 

IF JK=1 THEN 40060 ELSE 40070 
40060 IT0T=1: INS=1: ICS=0: RETURN 
40070 IT0T=JK-1: INS=JK: ICS=JK-1: RETURN 
REM 

REM B SEARCH LRU 

REM B NPT = Points to the next screen in the LRU list — 

40400 NPT=VAL(LRU$(0,1)) 
40410 IF NSN$=LRU$(NPT,0) THEN 40420 
NPT=VAL(LRU$(NPT,1)) 
IF NPT=0 THEN 40450 ELSE 40410 
40420 LRUFD=1: INS=NPT: GOSUB 40600: GOTO 40460 
40450 LRUFD=0: IF ICS=0 THEN RETURN 
IF ITOT=NMAX THEN RETURN 
INS=IT0T+1 
40460 RETURN 
REM 

REM B ADD TO LRU - 

REM i INS= Location in LRU of next screen 
REM B ICS= Location in LRU of current screen 
40500 IF ICS=0 THEN 40550 

LRU? (ICS, 2)= STR$(INS) 'BP(PS)= LOG OF NS IN LRU 

40550 LRU$(INS,0)=NSN$ 'SCR. ID(N-TH SCR)= NEXT SCREEN 

LRU$(INS,1) = LRU$(0,1) •FP(NS)=FPC0-TH screen) 

IF VAL(LRU$(INS,1))<>0 THEN 40555 
NLAST=INS 

40555 LRU$(INS,2)=STR$(0) 'BP(NS)=0"th screen 

LRU$(0,1) = STR§CINS) 'FP(0-TH screen)= new screen loc 

ICS=INS 

IF ITOT <> NMAX THEN 40560 ELSE RETURN 
40560 ITOT^INS 
RETURN 
REM 
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40610 



REM 0 UPDATE LRU 

IT=VAL(LRU$(INS,2)) 
LRU$(IT,1) = LRU? (INS, 1) ': 
IF VAL(LRU$(IT,1))<>0 THEN 40610 
NLAST=IT 

IT=VAL(LRU$(INS,1)) 
LRU$(IT,2) = LRU? (INS, 2) ' 



'FP(NS-1)=FP(NS) NS= Next Screen 



BP(NS+1)=BP(NS) 



IT=VAL(LRU$(0,1)) 
LRU? (IT, 2) = STR?(INS) 
LRU? ( INS , 1 )=LRU? (0,1) 
LRU?(INS,2)=STR?(0) 



'BP(FS)= LOG OF NS IN LRU 
'FP(NS)=FP(0-th screen) 
'BP(NS)=0 

'FP(0-TH screen)= LOG OF NS .IN LRU 
'l-th pos of CS = I-th of Next Screen 



LRU?(0,1)=STR?(INS) 



ICS=INS 



RETURN 
REM 

REM B PRINT LRU LIST Q 



41000 CLOSE: OPEN DSKL? FOR OUTPUT AS #5 

IUP=ITOT: LRU? (0,2)= STR? (NBLOK) : IPT(0 , 1)=NLAST 
FOR 1=0 TO lUP 

IB?=STR? (IPT(I , 0) ) : IND?=STR? (IPT(I , 1 ) ) 
WRITE #5, LRU?(I,0), LRU?(I,1), LRU?(I,2), IB?, IND? 
NEXT I 
41500 CLOSE: RETURN 
REM 
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iHOWQt PROCEDURE OPTIONS ( MAIN ); 



X 



CONNECT t 
COMMIT I 
WARRTXTi 
SALETXTt 
K DISTXTi 
x RPLTXTt 
X INXDATAt 
X ITEMINFi 
•X ITEMNM: 
FINDIT: 
ITEMCURi 
X ITEMSETi 
^X SUGGITM* 
ADJITEMi 
ITEMCSM: 
ADJQUAN: 
IPRICEt 
CHARGE: 
PASSWD: 



X 

'X 



'X 
''X 
"X 
"X 
'X 
'X 



= = = = = s=== ===== = c=:=: = S5 = === = = rr= === ==r: = ==== = = = = = = = E====s:s: X/ 

ENTRY ( T, RCODE); COtniECT TO SQL/DS X/ 

ENTRY C T, RCODE); COMMIT ALL WORK X/ 

ENTRY CITM, XTD,XL,T, RCODE); /X GET TEXT FROM WARRAN5 X/ 

ENTRY (ITM, XS,XL,T, RCODE); /X GET TEXT FROM SALES x/ 

ENTRY (XC8,XTD,XL, 1, RCODE); GET DISPLAY TEXT X/ 

ENTRY (XC8,XSR,XL, T, RCODE); GET REPLY OPTIONS TEXT X/ 

ENTRY CXC20,XSR,XL, T, RCODE); GET INDEX DATA X/ 

ENTRY (XC5,XI, T, RCODE); GET ITEM INFORMATION X/ 

ENTRY (XC8,C^D, T, RCODE); GET ITEM NAME X/ 

ENTRY (XI, CV, T, RCODE); GET ITEM FROM FRAME* X/ 

ENTRY(FF, FL, T, RCODE); FILL XII WITH DEMO ITEMS X/ 

ENTRY(XI, T^ RCODE); SET POSITION OF SELECTED DEMO ITEM X/ 

ENTRY(XC8,XCI,XL, T, RCODE); GET COMPLEMENTARY ITEMS X/ 

ENTRY (XI, RP, T, RCODE); GET ADJACENT ITEM X/ 

ENTRY (ITM,MSCI,XSR,XL, T, RCODE); GET ITEM COLOR X/ 

ENTRY (ITM,TYP,T, RCODE); ADJUST QUANTITY OF ITEM X/ 

ENTRY (XC8,XP,T, RCODE); GET ITEM PRICE X/ 

ENTRY (C12,XL, T, RCODE); CHARGE CREDIT OF CUSTOMER X/ 

ENTRY (C12,C8, T, RCODE); FETCH CUSTOMER PASSWORD x/ 



iXEC SQL BEGIN DECLARE SECTION; 



DCL 18 CHAR(8); 
DCL C8 CHAR(8); 
DCL CL8 CHAR(8); 

CHAR(12); 
CHAR(8); 
CHAR(2); 
CHAR(6); 
CHAR(20); 
CHAR(40); 
CHAR(20) VARYING; 
CHAR(20) VARYING; 
Fl FIXED BIN(31); 
(FF,FL) FIXED BIN(31); 

FIXED BIN(31); 
FIXED BIN(31); 
FIXED BIN; 
CHAR(3); 



DCL CI 2 
DCL S8 
DCL RP 
DCL CH6 
DCL CH20 
DCL C'lO 
DCL CHV20 
DCL CHV20V 
DCL 
DCL 

DCL XL 
DCL F31 
DCL MSCI 
DCL TYP 
^X VIDE03. ITEMS TABLE 



ITEM TABLE 

SORTED BY IIC 



-X/ 
X/ 

X/ 



DCL IIT CHAR(8); /X ITEM ID, UNIQUE FOR AN ITEM. 

DCL IIC CHAR(20); /X ITEM KEY WORD E.G. SHOE, 

DRESS ETC. 
SORT BY THIS FIELD. X/ 

DCL lODN CHAR(12); /X CATALOGUE NUMBER OR ORDER 

NUMBER. SOME TIMES SPECIAL CODES 
WILL POINT TO TABLE SIZC0L2. X/ 

DCL ICIT CHAR(8); /X ITEM ID OF COMPLEMENT ITEM, 

NON ZERO IMPLIES ENTRY IN TABLE 
ICOMP. ZERO VALUE, IF NO COMPLEMENTARY 
ITEM OR QOH IS ZERO. X/ 

DCL INM CHARC^O); /x NAME OF ITEM. X/ 



* 
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DCL iVF FIXED BINC31); 

DCL IFM FIXED BINC31); 

DCL ILM FIXED BIKC31); 

DCL IFC FIXED BINCSl); 

DCL ILC FIXED BINC31); 

DCL lEC FIXED BINC31); 



/X VIDEO FRAME NUMBER FOR STATIC 

DISPLAY. X/ 
/X FIRST FRAME « FOR DISPLAYING 

ITEM FROM DIFFERENT POSITIONS. X/ 
/X LAST FRAME t FOR DISPLAYING 

ITEM FROM DIFFERENT POSITIONS. X/ 

/X FIRST COMMERCIAL FRAME NUMBER. X/ 

/X LAST COMMERCIAL FRAME NUMBER, K/ 

/X END COMMERCIAL FRAME NUMBER. X/ 



/X VIDEOS. DEPT5 TABLE 



-DEPARTMENT INDEX TABLE- 
SORTED BY IDEPT 



X/ 



DCL IDEPT 



CHARCZO); /X DEPARTMENT NAME IN WHICH ITEM 



IIT CHARCS) 

INM CHARC^O) 

IFC FIXED BINCSl) 

ILC FIXED BINC31) 

lEC FIXED BINC31) 



SOLD, REPEATING VALUE. 
ITEM ID, NON UNIQUE. 
NAME OF ITEM, 

FIRST COMMERCIAL FRAME NUMBER. 
LAST COMMERCIAL FRAME NUMBER. 
END COMMERCIAL FRAME NUMBER. X/ 



/X VIDEOS, BRANDS TABLE- 



"BRAND NAME INDEX TABLE- 
SORTED BY IBRAND 



X/ 



DCL IBRAND CHAR(20); /X BRAND NAME OF ITEM 

REPEATING VALUE. 
E.G. SEARS, GM, FRIGIDAIRE ETC. 
ITEM ID, NON UNIQUE. 
NAME OF ITEM. 

FIRST COMMERCIAL FRAME NUMBER. 
LAST COMMERCIAL FRAME NUMBER. 
END COMMERCIAL FRAME NUMBER. X/ 



IIT CHARCS) 

INM CHAR(40) 

IFC FIXED BINC31) 

ILC FIXED BIN(31) 

lEC FIXED BINC31) 



/X VIDEOS. TEXTS TABLE 



-ITEM TEXT TABLE- 
SORTED BY TIT 



X/ 



DCL TIT 



. .DCL TCN CHARC8:); 

DCL TSEQ CHARC7); 

DCL DFCL FIXED BIN(31); 

DCL DBCL FIXED BINC31); 

DCL DSL FIXED BIN(31); 

DCL TTX CHARC74); 
/X VIDEOS. SIZC0L5 TABLE 



CHAR(8); /X ITEM ID, SAME AS ITEM2.IIT. 

TEXTS COVERING MULTIPLE TUPLES 
ARE LINKED BY SAME VALUE OF THIS 
FIELD. K/ 
/X CONTINUATION NUMBER. A LINK CODE 

FOR ITEMS HAVING SAME TEXT. X/ 
/X A SEQUENCE NUMBER FOR EACH TUPLE 
OF THIS TABLE, x/ 
/X TEXT COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM, X/ 
/X BACK GROUND COLOR DISPLAY CODE. USED 
BY SCREEN GENERATOR PROGRAM. X/ 
/X TEXT LETTER SIZE DISPLAY CODE. 

USED BY SCREEN GENERATOR PROGRAM. X/ 
/X TEXT. 5e/ 



-MICRO INFORMATION TABLE 

SORTED BY IIT, SIZE, COLOR, MODEL 
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JIT CHAR(8) 

DCL SIZE CHAR(8); 

DCL COLOR CHAR(8)| 

DCL MODEL CHAR(20>j 

lODN CHARCIZ) 
IBRAND CKARC20) 

DCL ISP CHARC8); 
DCL IWN CHARC8>; 
IFM FIXED BINC31) 
ILM FIXED BINC31) 
DCL lEM FIXED BINC31)? 
DCL QOH BIN FIXED (31); 

DCL ISM BIN FIXED (31); 
/K VIDEOS. SALES TABLE 



ITEM NUMBER. SAME AS ITEH2.IIT, BUT 
WILL BE REPEATED. X/ 

/X ITEM SIZE, DATA ONLY FOR SIZES 

OF THE ITEM AVAILABLE IN STORE. X/ 

/X ITEM COLOR, DATA ONLY FOR COLORS 
OF THE ITEM AVAILABLE IN STORE. X/ 

/3€ ITEM MODEL, DATA ONLY FOR MODELS 
OF THE ITEM AVAILABLE IN STORE 
E.G. RUBBER WHEEL, RECTANGLE ETC. 
ITEM CATALOGUE, SAME AS ITEM2.I0DN 
BUT NO CODES. 
BRAND NAME OF ITEM 
REPEATING VALUE. 
SAME AS IN BRAND. IBRAND, 
E.G. SEARS, GM, FRIGIDAIRE ETC.X/ 

/X ITEM SALES PROMOTION CODE, POINTS 
TO TABLE SALE2. A ZERO VALUE 
IMPLIES ITEM NOT ON SALE. X/ 

/X ITEM WARRANTY CODE. POINTS TO 
TABLE WARRAN. A ZERO VALUE 
IMPLIES ITEM HAS NO WARRANTY. 
FIRST MICRO INFORMATION FRAME 
NUMBER. VALUE ZERO IF NO MICRO 
INFORMATION AVAILABLE FOR ITEM* 
LAST MICRO INFORMATION FRAME 
NUMBER. VALUE ZERO IF NO MICRO 
INFORMATION AVAILABLE FOR ITEM. 
/X END MICRO INFORMATION FRAME 
NUMBER. VALUE ZERO IF NO MICRO 
INFORMATION AVAILABLE FOR ITEM. 

/X ITEM QUANTITY ON HAND. SUBTRACT 
QUANTITY PURCHASED, AFTER EACH 
PURCHASE. ADD BACK QUANTITY, IF 
PURCHASE FAILS FOR SOME REASONS. 

/X SHIPPING WEIGHT OF EACH ITEM. X/ 



36/ 



X/ 



X/ 



ISP 



CHAR(8) 



DCL SSD CHAR(8); 
DCL SED CHAR(8); 
DCL STXT CHAR(74); 



DCL SFC FIXED BIN(31); 
DCL SLC FIXED BIN(31); 
DCL SEC FIXED BIN(31); 



SALES TABLE 

SORTED BY ISP 

SALES PROMOTION CODE, SAME AS 
SIZC0L2.ISP X/ 
/X START DATE OF SALES PROMOTION. X/ 
/X TERMINATION DATE OF SALES PROMOTION. X/ 
/X TERMS AND CONDITIONS OF SALES 

PROMOTION, SALE PRICE AND OTHER 
RESTRICTIONS TO SALE. X/ 
/X FIRST SALES PROMOTION FRAME 
NUMBER. VALUE ZERO IF NO SALES 
PROMOTION AVAILABLE FOR ITEM. X/ 
/X LAST SALES PROMOTION FRAME 
NUMBER. VALUE ZERO IF NO SALES 
PROMOTION AVAILABLE FOR ITEM. X/ 
/X END SALES PROMOTION FRAME 

NUMBER. VALUE ZERO IF NO SALES 
PROMOTION AVAILABLE FOR ITEM . X/ 



0140302 



FILEi SH0WQ5 PLISQL A SAN JOSE RESEARCH LABORATORY - VM/SP CMS CI. 11) 



/» VIDEOS. WARRAN5 TABLE — 
IWN CHARCS) 



DCL WTXT 
DCL WGEN 



CHARC^O); 
CHARC40)) 



DCL WFI FIXED BINC31); 
DCL WLI FIXED BINC31); 



/X VIDEOS. PRICES TABLE 

IIT CHARCS) 
lODN CHARC12) 

DCL IRP FIXED BINC51); 
DCL IPQ FIXED BINC31); 



DCL PSD CHARCS); 
DCL PED CHARCS); 
DCL lEP FIXED BINC31); 



/X VIDEOS. IC0MP5 TABLE ~ - 
IIT CHARCS) 
ICIT CHARCS) 

IFC FIXED BINC31) 
ILC FIXED BINC31) 
lEC FIXED BINC31) 



/ae VIDEOS. CUSTM5 TABLE 

DCL CID CHARC12); 



WARRANTY TABLE 

SORTED BY IWN 

WARRANTY CODE, SAME AS IN 
SIZC0L2.1WN. 

REPEAT FOR MULTIPLE TUPLE TEXT. X/ 
/X TEXTUAL DETAILS OF WARRANTY. X/ 
/X INFORMATION NEEDED TO OBTAIN OR 

GENERATE WARRANTY. x/ 
/X FIRST WARRANTY INFORMATION FRAME 
NUMBER. VALUE ZERO IF NO WARRANTY 
INFORMATION AVAILABLE FOR ITEM. X/ 
/X LAST WARRANTY INFORMATION FRAME 
NUMBER. VALUE ZERO IF NO WARRANTY 
INFORMATION AVAILABLE FOR ITEM. X/ 



PRICE TABLE 

SORT BY IIT 
ITEM ID, SAME AS IN ITEH2.IIT 

BUT CAN REPEAT. 
CATALOGUE NUMBER OR ORDER 
NUMBER. SAME AS ITEM2.I0DN, 
NO CODES ALLOWED. je/ 
/X ITEM NORMAL PRICE IN DOLLARS 

AND CENTS. x/ 
/X QUANTITY OR NUMBER OF UNITS OF 
PURCHASE FOR WHICH THE PRICE IS 
VALID. K/ 
/X START DATE OF EFFECTIVE PRICE. X/ 
/X END DATE OF EFFECTIVE PRICE. X/ 
/X EFFECTIVE PRICE, MAY HAVE TO BE 
COMPUTED FROM REGULAR PRICE. X/ 



"COMPLEMENT ITEM TABLE- 
SORTED BY IIT 



ITEM ID OF ONLY THOSE ITEMS WHICH 

HAVE COMPLEMENT ITEMS. CAN REPEAT 

SAME AS ITEM2.IIT. 

ITEM ID OF ITEMS WHICH SHOULD BE 

SUGGESTED FOR PURCHASE, IF THIS 

ITEM IS PURCHASED. SAME AS 

ITEM2.IIT. 

FIRST COMMERCIAL FRAME NUMBER 

OF SUGGESTED ITEM, 

LAST COMMERCIAL FRAME NUMBER 

OF SUGGESTED ITEM. 

END COMMERCIAL FRAME NUMBER 

OF SUGGESTED ITEM, 3e/ 



-CUSTOMER TABLE- 
SORTED BY CID 



X/ 



/X CUSTOMER ID, CREDIT CARD 
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DCL PASS 
DCL CADD 



CHARCS); 
CHAR(74); 



DCL CLIM FIXED BINC31); 



IDENTIFICATION NUMBER K/ 

/X PASS WORD X/ 

MAILING ADDRESS OF CUSTOMER X/ 
/X CREDIT LIMIT OF CUSTOMER. 
ORIGINALLY SET BY STORE AND 
PURCHASE AMOUNT DEDUCTED AT EACH 

PURCHASE. X/ 



/X VIDEOS .DELEV5 TABLE 



-ITEM DELIVERY TABLE- 
SORTED BY CID 



CID CHARC12) CUSTOMER ID, CREDIT CARD 

IDENTIFICATION NUMBER. 
lODN CHAR(12) CATALOGUE NUMBER OR ORDER 

NUMBER. SAME AS ITEM2.I0DN, 

NO CODES ALLOWED. X/ 

DCLuDELD^ : CHARtSlr /X DATE ON WHICH ITEM DELIVERED 

OR PROMISED DELIVERY. X/ 

DCL DELADD CHAR(74); /x ADDRESS WHERE ITEM TO BE DELIVERED 

OR LOCATION WHERE CUSTOMER TO 
PICK UP ITEM, X/ 

DCL AVAILD CHARC8); /X DATE ON WHICH ITEM WILL BE 

AVAILABLE IN STOCK. IF 
5IZC0L2.QOH > 0 THEN VALUE = 
CURRENT. X/ 



/X VIDEOS. INC0M5 TABLE 



CID 



PASS 
lODN 



CHAR(12) 



CHARCS) 
CHARC12) 



DCL STATE CHARCS); 

SIZE CHARCS) 
COLOR CHARCS) 

MODEL CHARC20) 

DCL QUAN FIXED BINC31); 



PURCHASE INCOMPLETE TABLE 

SORTED BY CID 

CUSTOMER ID, CREDIT CARD 
IDENTIFICATION NUMBER. 
OF THOSE CUSTOMERS WHO INTRUPTED 
TRANSACTION FOR INSPECTION, 
PASS WORD 

CATALOGUE NUMBER OR ORDER 
NUMBER OF ITEMS PURCHASED BY 
CUSTOMER. SAME AS ITEM2.I0DN, 
NO CODES ALLOWED, X/ 
/X STATE FROM WHICH CUSTOMER 

REQUESTED STATE INS (LAST ITEM) 
VALUE BLANK FOR ITEMS ALREADY " 
PURCHASED. 

ITEM SIZE, DATA OF ITEM PURCHASED. 
ITEM COLOR, DATA OF ITEM 
PURCHASED. 

ITEM MODEL, DATA OF ITEM 
PURCHASED. X/ 
/X QUANTITY OR UNITS OF ITEM 

PURCHASED. X/ 



/X VIDEOS. STREPS TABLE — 
STATE CHARCS) 



STATE REPLY TABLE 

SORTED BY STATE 

ITEM ID, SAME AS INC0M5.STATE 
STATE COVERING MULTIPLE TUPLES 
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DCL REPID CHARCS); 

DCL STREP CHARCIO); 

DFCL FIXED BINC31) 

DBCL FIXED BINC31) 

DSL FIXED BIN(31) 

DCL RLOC CHAR(2); 
DCL CLOC CHAR(2); 
DCL REPTXT CHAR(^O); 
DCL NSTATE CHARCS); 
IVF FIXED BINC31) 



ARE LINKED BY SAME VALUE OF THIS 

FIELD. ^/ 
/X A REPLY ID SEQUENCE NUMBER FOR EACH 

TUPLE FOR SAME VALUE OF STATE X/ 
/X STATE CONCATINATED WITH TWO 

CHARACTERS FORM REPLY STRING 
TEXT COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM. 
BACK GROUND COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM. 

TEXT LETTER SIZE DISPLAY CODE. 

USED BY SCREEN GENERATOR PROGRAM. X/ 
/X ROW LOCATION IN SCREEN X/ 

COLUMN LOCATION IN SCREEN X/ 
/X REPLY TEXT FOR SCREEN 
/X NEXT STATE SAME AS INC0M5,STATE 

VIDEO FRAME NUMBER FOR STATIC 

DISPLAY. X/ 



/K VIDE03.SCREN5 TABLE 



SCREEN TABLE 

SORTED BY STREP, TSEQ 

REPID CHARCS) REPLY ID SEQUENCE NUMBER FOR EACH 

SCREEN GENERATED BY SYSTEM 
STREP CHARCIO) STATE CONCATINATED WITH TWO 

CHARACTERS FORM REPLY STRING ^ 
/X NEXT STATE-REPLY SCREEN 

TEXT COLOR DISPLAY CODE. USED 
BY SCREEN GENERATOR PROGRAM. 

BACK GROUND COLOR DISPLAY CODE. USED 
BY SCREEN GENERATOR PROGRAM. 
TEXT LETTER SIZE DISPLAY CODE. 
ROW LOCATION IN SCREEN 
COLUMN LOCATION IN SCREEN 
,^uR«,,nx y^^^ SCREEN GENERATOR PROGRAM. 

^^^^^ ^EXT FOR SCREEN 
CHARCS) NEXT STATE SAME AS INC0M5. STATE X/ 



DCL NSCEN CHARCIO); 
DFCL FIXED BINC51) 

DBCL FIXED BINC31) 

DSL FIXED BINC31) 
RLOC CHARC2) 
CLOC CHARC2) 



REPTXT 
NSTATE 



/X 

DCL ID CHARCS) INITC»GHOSH 
DCL PASSW CHARCS) INITC 'GHOSH 
EXEC SQL END DECLARE SECTION; 

/X : 



'); 



-X/ 



DCL XC8 

DCL XC12 

DCL FN 

DCL CRS, RC) 

DCL RCODE 

DCL T 
DCL 1 XI, 

2 IIT 
2 lie 
2 lODN 

2 ICIT 



CHARCS); 
CHARC12); 
FIXED BINC51); 

CHARCS); 
FIXED BINC31); 
CHARC25); 

/X ITEM STRUCTURE X/ 
CHARCS), /X ITEM ID, UNIQUE FOR AN ITEM 
CHARC20), /X ITEM KEY «n 1 1 en 

CHARC12), /X CATALOGUE NUMBER OR ORDER 

NUMBER. X/ 
CHARCS), /X ITEM ID OF COMPLEMENT ITEM. X/ 



X/ 



X/ 
X/ 
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2 INM CHAR(40), 

2 IVF FIXED BINCSl), 

2 IFM FIXED BINCSl), 

2 ILM FIXED BIN(31), 

2 IFC FIXED BINCSl), 

2 ILC FIXED BIN(31), 

2 lEC FIXED BIN(31); 



NAME OF ITEM. 3C/ 
/5€ VIDEO FRAME NUMBER FOR STATIC 

DISPLAY. X/ 
/K FIRST FRAME * FOR DISPLAYING 

ITEM FROM DIFFERENT POSITIONS, X/ 
/X LAST FRAME « FOR DISPLAYING 

ITEM FROM DIFFERENT POSITIONS, X/ 
/X FIRST COMMERCIAL FRAME NUMBER. X/ 
/X LAST COMMERCIAL FRAME NUMBER. X/ 
/X END COMMERCIAL FRAME NUMBER. X/ 



DCL 1 



XDIr 

2 IDEPT 



X/ 



IIT 
INM 
IPC 
ILC 
I EC 



CHARC20), 

CHARC8), 
CHAR(<iO), 
FIXED flIN(5i>> 
FIXED BINCSl), 
FIXED BIN(31)i 



ITEM 



/X DEPARTMENT INDEX TABLE 
/X DEPARTMENT NAME IN WHICH 
SOLD, REPEATING VALUE, 
/X ITEM ID, NON UNIQUE, 
NAME OF ITEM. 

FIRST COMMERCIAL FRAME NUMBER. X/ 
LAST COMMERCIAL FRAME NUMBER. X/ 
END COMMERCIAL FRAME NUMBER. X/ 



/X 
/X 
/X 
/X 



X/ 
X/ 
X/ 



DCL 1 X6I, 



/X BRAND NAME INDEX TABLE 



X/ 



2 IBRAND 



CHARC20), /X BRAND NAME OF ITEM 



X/ 



2 IIT CHARCS), 

2 INM CHARC^O), 

2 IFC FIXED BINC31), 

2 ILC FIXED BINC31), 

2 lEC FIXED BIN(31); 



DCL 1 



XT, 
2 TIT 



2 TCN 
2 TSEQ 



CHARC8), 



CHARC8), 
CHARC7), 



2 DFCL FIXED BINC31), 
2 DBCL- RIXED BINCSl),- 



2 DSL FIXED BINC31), 
2 TTX CHAR(74); 



REPEATING VALUE 

/X ITEM ID, NON UNIQUE. X/ 

/X NAME OF ITEM. X/ 

/X FIRST COMMERCIAL FRAME NUMBER. X/ 

/X LAST COMMERCIAL FRAME NUMBER. X/ 

/X END COMMERCIAL FRAME NUMBER. X/ 

/X ITEM TEXT TABLE X/ 
yx ITEM ID, 

IF TEXTS COVERING MULTIPLE TUPLES 

ARE LINKED BY SAME VALUE OF THIS 

FIELD. X/ 
/X CONTINUATION NUMBER. A LINK CODE 

FOR ITEMS HAVING SAME TEXT. X/ 
/X A SEQUENCE NUMBER FOR EACH TUPLE 

OF THIS TABLE. X/ 
/X TEXT COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM. X/ 
/X -BACK GROUND COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM. X/ 
/X TEXT LETTER SIZE DISPLAY CODE. X/ 
/X TEXT. X/ 



DCL 1 



CS, 
2 IIT 
2 SIZE 



CHARCS), 
CKAR(8), 



2 COLOR CHARC8), 
2 MODEL CHAR(20), 



lODN 
IBRAND 



CHAR(12), 
CHAR(20), 



/X MICRO INFORMATION TABLE X/ 
/X ITEM NUMBER. X/ 
/X ITEM SIZE, DATA ONLY FOR SIZES 

OF THE ITEM AVAILABLE IN STORE. X/ 
/X ITEM COLOR, DATA ONLY FOR COLORS 

OF THE ITEM AVAILABLE IN STORE, X/ 
/X ITEM MODEL, DATA ONLY FOR MODELS 

OF THE ITEM AVAILABLE IN STORE X/ 
/X ITEM CATALOGUE, NO CODES X/ 
/X BRAND NAME OF ITEM 
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2 ISP CHARC8), 

2 IWN CHARC8), 

2 IFM FIXED BINC31), 

2 ILM FIXED BINC51), 

2 lEH FIXED BINC31), 

2 QOH BIN FIXED (31), 
2 ISW BIN FIXED (31); 

DCL 1 XS(IO), 

2 ISP CHARCS), 
2 SSD CHAR(8), 
2 SED CHAR(8), 
2 STXT CHAR(74), 
2 SFC FIXED BINC31), 

2 SLC FIXED BINC31), 

2 SEC FIXED BIN(31); 



REPEATING VALUE. X/ 
/X ITEM SALES PROMOTION CODE. POINTS 



DCL 1 XW, 

2 im 

2 WTXT 
2 W6EN 



CHAR(8), 

CHAR(40), 

CHARC40), 



2 WFI FIXED BINC31), 
2 WLI FIXED BIN(31); 



DCL 1 XP, 

2 IIT 
2 lODN 

2 IRP 

2 IPQ 



CHAR(8), 
CHAR(12), 

FIXED BIN(31), 

FIXED BIN(31), 



2 PSD CHAR(8)^ 
2 PED CHAR(8), 
2 lEP FIXED BIN(31); 



DCL 



1 XCKIO), 
2 IIT 

2 ICIT 



CHARC8), 
CHAR(8), 



TO TABLE SALE2. 
/X ITEM WARRANTY CODE. POINTS TO 

TABLE WARRAN, 
/X FIRST MICRO INFORMATION FRAME 
NUMBER. 

/K LAST MICRO INFORMATION FRAME 
NUMBER. 

/X END MICRO INFORMATION FRAME 

NUMBER. 
/X ITEM QUANTITY ON HAND. 
/X SHIPPING WEIGHT OF EACH ITEM, 



X/ 

X/ 

X/ 

X/ 

X/ 
X/ 
X/ 



/X SALES TABLE x/ 
/X SALES PROMOTION CODE X/ 
/X START DATE OF SALES PROMOTION. X/ 
/X TERMINATION DATE OF SALES X/ 
/X TERMS AND CONDITIONS OF SALES X/ 
/X FIRST SALES PROMOTION FRAME 

NUMBER. X/ 
/X LAST SALES PROMOTION FRAME 

NUMBER, X/ 
/X END SALES PROMOTION FRAME 

NUMBER. 3€/ 

/X WARRANTY TABLE X/ 
/X WARRANTY CODE x/ 
/X TEXTUAL DETAILS OF WARRANTY, X/ 
/X INFORMATION NEEDED TO OBTAIN OR 

GENERATE WARRANTY. X/ 
/X FIRST WARRANTY INFORMATION FRAME 

NUMBER, X/ 
/X LAST WARRANTY INFORMATION FRAME 

NUMBER. X/ 

/X PRICE TABLE x/ 
/X ITEM ID X/ 
/X CATALOGUE NUMBER OR ORDER 

NUMBER. X/ 
/X ITEM NORMAL PRICE IN DOLLARS 

AND CENTS. x/ 
/X QUANTITY OR NUMBER OF UNITS OF 

PURCHASE FOR WHICH THE PRICE IS 

VALID. X/ 
/X START DATE OF EFFECTIVE PRICE. X/ 
/X END DATE OF EFFECTIVE PRICE. X/ 
/X EFFECTIVE PRICE. x/ 

/X COMPLEMENT ITEM TABLE X/ 
/X ITEM ID OF ONLY THOSE ITEMS WHICH 

HAVE COMPLEMENT ITEMS. X/ 
/X ITEM ID OF ITEMS WHICH SHOULD BE 
SUGGESTED FOR PURCHASE, IF THIS 
ITEM IS PURCHASED. x/ 
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2 IPC FIXED BINC31), 
2 ILC FIXED BIN(31), 
2 lEC FIXED BIN(31)j 



DCL 1 



XCU, 
2 CID 

2 PASS 
2 CADD 
2 CLIM 



CHARC12), 

CHARC8), 
CHAR(74), 
FIXED BIN(31)j 



DCL 1 XDL, 

2 CID 

. u 2 lODN: : 

2 DELD 
2 DELADD 



DCL 1 



2 AVAILD 



XIN, 
2 CID 
2 PASS 
2 lODN 



2 STATE 



SIZE 
COLOR 



2 MODEL 



CHAR(12), 
CHARC12), 

CHARCS), 

CHARC74), 

CHARCS); 



CHAR(12), 
CHAR(8), 
CHARC12), 



CHAR(8), 

CHAR(8), 
CHAR(8), 

CHARC20), 



/3£ FIRST COMMERCIAL FRAME NUMBER 
OF SUGGESTED ITEM. 3f/ 

/X LAST COMMERCIAL FRAME NUMBER 
OF SUGGESTED ITEM. 3f/ 

/X END COMMERCIAL FRAME NUMBER 
OF SUGGESTED ITEM. X/ 

/X CUSTOMER TABLE X/ 
/X CUSTOMER ID, CREDIT CARD 

IDENTIFICATION NUMBER X/ 
/X PASSWORD X/ 
/X MAILING ADDRESS OF CUSTOMER X/ 
/X CREDIT LIMIT OF CUSTOMER. x/ 

/X ITEM DELIVERY TABLE X/ 
/X CUSTOMER ID, X/ 
/X CATALOGUE NUMBER OR ORDER 

NUMBER- 3C/ 
vx DATE ON WHICH ITEM DELIVERED 

OR PROMISED DELIVERY. X/ 
/X ADDRESS WHERE ITEM TO BE DELIVERED 

OR LOCATION WHERE CUSTOMER TO 

PICK UP ITEM. X/ 
/X DATE ON WHICH ITEM WILL BE 

AVAILABLE IN STOCK. X/ 



2 QUAN FIXED BIN(31); 



DCL 



1 SR, 
2 STATE 
REPID 
STREP 
DFCL 
DBCL 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



CHAR(8)/ 
CHAR(5), 
CHARCIO), 
FIXED BIN(31), 
FIXED BIN(31), 



DSL FIXED BINC31)> 
RLOC CHAR(2), 
CLOC CHAR(2), 
REPTXT CHAR(<iO), 
NSTATE CHAR(8), 
IVF FIXED BINC31); 



X/ 
X/ 
X/ 



X/ 



/X PURCHASE INCOMPLETE TABLE 
/X CUSTOMER ID, 
/X PASSWORD 

/X CATALOGUE NUMBER OR ORDER 
NUMBER OF ITEMS PURCHASED BY 
CUSTOMER. 

/X STATE FROM WHICH CUSTOMER 

REQUESTED STATE INS (LAST ITEM) X/ 

/X ITEM SIZE, DATA OF ITEM PURCHASED. X/ 

/X ITEM COLOR, DATA OF ITEM 

X/ 

DATA OF ITEM 

X/ 



PURCHASED. 
/X ITEM MODEL, 

PURCHASED. 
/X QUANTITY OR UNITS OF ITEM 
^ PURCHASED. 



X/ 



/X 
/X 
/X 



X/ 



STATE REPLY TABLE 
STATE X/ 
A REPLY ID X/ 
/X STATE REPLY X/ 
/X FORGROUND COLOR X/ 
/X BACK GROUND COLOR X/ 
/X TEXT LETTER SIZE DISPLAY CODE. 
/X ROW LOCATION IN SCREEN X/ 
/X COLUMN LOCATION IN SCREEN X/ 
/X REPLY TEXT FOR SCREEN X/ 
/X NEXT STATE SAME AS INC0M5.STATE X/ 
/X VIDEO FRAME NUMBER FOR STATIC 
DISPLAY. X/ 



X/ 



<£SS> 
-BB- 
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DCL 1 



SC, 

2 REPID 
STREP 
NSCEN 
DFCL 
DBCL 
DSL 
RLOC 
CLOC 
REPTXT 



DCL 
DCL 



DCL 1 



NSTATE 
YC8 

I XMDClOO), 
2 DTXS 
2 DNS 
2 DIT 
XST, 
2 COUNT 
2 CDNS 
2 CDIT 



CHARC5) 
CHARCIO 
CHARCIO 
FIXED BINCSl 
FIXED BINC31 
FIXED BIN(31 
CHAR(2) 
CHAR(2) 
CHARC40 
CHAR(5)j 



/X SCREEN TABLE X/ 
/X REPLY ID X/ 
/X STATE REPLY X/ 
/X NEXT STATE-REPLY SCREEN X/ 
/X FORE GROUND COLOR X/ 
/X BACK GROUND COLOR DISPLAY CODE. X/ 
/X TEXT LETTER SIZE DISPLAY CODE. X/ 
/X ROM LOCATION IN SCREEN X/ 
/X COLUMN LOCATION IN SCREEN X/ 
/X REPLY TEXT FOR SCREEN X/ 
NEXT STATE SAME AS INC0M5, STATE X/ 



/X 



CHARC8); /X WORKING VARIABLE X/ 
/X ALL NON-MENU TOUPLES X/ 

CHAR(30), 
CHARCS), 
CHARC8); 

STATISTICS OF NON-MENU TOUPLES X/ 
BIN FIXED, /X COUNT OF SATISFYING TOUPLES X/ 
BIN FIXED, /X COUNT OF NON-ZERO DNS X/ 
BIN FIXED; /X COUNT OF NON--ZERO DIT X/ 



DCL 1 XTDClOO), 

2 DFCL FIXED BINC31), 

2 DBCL FIXED BINC31), 

2 DSL FIXED BIN(31), 
2 TTX CHAR(7^»); 

DCL 1 XSR(IOO), 

2 REPID CHARCS), 
2 STREP CHARCIO), 
2 DFCL FIXED BINC31), 
2 DBCL FIXED BINC31), 
2 DSL FIXED BINC31), 
2 RLOC CHARC2) 
2 CLOC CHARC2) 
2 REPTXT CHARC46 
2 NSTATE CHARC8) 
2 



), 



IVF FIXED^ BINC31)i 



DCL 1 XSICIOD), 

2 IIT CHARC8), 
2 INM CHARCIO), 
2 IFC FIXED BINC31), 
2 ILC FIXED BINC31), 
2 lEC FIXED BINC31); 



/X DISPLAY TEXT x/ 
/X TEXT COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM. X/ 
/X BACK GROUND COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM. X/ 
/X TEXT LETTER SIZE DISPLAY CODE, X/ 
/X TEXT^ X/ 

/X SCREEN TEXT x/ 
/X A REPLY ID X/ 
/X STATE REPLY X/ 
/X FORGROUND COLOR X/ 
/X BACK GROUND COLOR X/ 
/X TEXT LETTER SIZE DISPLAY CODE, X/ 
/X ROW LOCATION IN SCREEN X/ 
>^X COLUMN LOCATION IN SCREEN X/ 
/X REPLY TEXT FOR SCREEN X/ 
/X NEXT STATE SAME AS INC0M5. STATE X/ 
/X VIDEO FRAME NUMBER FOR STATIC 
DISPLAY. K/ 

/X INDEX SCREEN TEXT X/ 
/X ITEM ID, NON UNIQUE. x/ 
/X NAME OF ITEM. x/ 
/X FIRST COMMERCIAL FRAME NUMBER. X/ 
/X LAST COMMERCIAL FRAME NUMBER. X/ 
^X END COMMERCIAL FRAME NUMBER. X/ 



DCL 1 XllClOO) STATIC, /X STATIC ITEM TABLE X/ 

1 lil ^'^e ITEM ID, UNIQUE FOR AN ITEM. X/ 

2 lie CHARC20), /X ITEM KEY jt/ 
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2 lODN 



CHARC12)j 



2 ICIT CHARC8), 

2 INM CHAR(^O), 

2 IVF FIXED BIN(51), 

2 IFM FIXED BIN(31)r 

2 ILM FIXED BINC51), 

2 IFC FIXED BIN(31), 

2 ILC FIXED BINC31), 

2 lEC FIXED BINC51); 



DCl. L JTM, 
2 IIT 
2 INM 
2 COLOR 
2 SIZE 
2 MODEL 
2 QUAN 
2 STREP 
2 lEP 

DCL SVDTYPE 

DCL CI,II,IMAX,IX) 

DCL ITEMPOS 

DCL CH9 



/3€ CATALOGUE NUMBER OR ORDER 
NUMBER. 

/X ITEM ID OF COMPLEMENT ITEM. 
/X NAME OF ITEM. 

/X VIDEO FRAME NUMBER FOR STATIC 
DISPLAY, 

/X FIRST FRAME » FOR DISPLAYING 
ITEM FROM DIFFERENT POSITIONS. 
/X LAST FRAME * FOR DISPLAYING 
ITEM FROM DIFFERENT POSITIONS. 
/X FIRST COMMERCIAL FRAME NUMBER, 
/X LAST COMMERCIAL FRAME NUMBER, 
/X END COMMERCIAL FRAME NUMBER, 

/X SELECTED ITEM STRUCTURE X/ 



X/ 
X/ 
X/ 

X/ 

X/ 

X/ 
X/ 
X/ 
X/ 



CHARC8), 
CHARC40), 
CHARC8), 
CHARCS), 
CHAR(20), 
FIXED BIN(31), 
CHARCIO), 
FIXED BIN(31); 
CHARC8); 

BIN FIXED; 
BIN FIXED STATIC; 
CHARC9); 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/X ERROR HANDLING X/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

EXEC SQL INCLUDE SQLCA; 

/X THIS PROGRAM WILL IGNORE WARNING AS THEY WILL NOT AFFECT RESULTS X/ 
EXEC SQL WHENEVER SQLWARNING CONTINUE; 

EXEC SQL WHENEVER SQLERROR GOTO SQLERR; 
/X EXEC SQL WHENEVER NOT FOUND GOTO SQLERR; X/ 
XSKIP; 



/X 

CONNECT 1 ENTRY (T, RCODE); 

T = »EXEC SQL CONNECT '; 

EXEC SQL CONNECT »ID IDENTIFIED BY iPASSW; 

RCODE = SQLCODE; 
GOTO DONE; 
/X 



X/ 



X/ 



SUGGITMi ENTRY CXC8, XCI,XL,T, RCODE); /X GET SUGGESTED ITEMS X/ 

C8 = XC8; T = 'EXEC SQL DECLARE S4 CURSO'; 

IMAX = 10; /X MAXIMUM NUMBER OF COMPLEMENTARY ITEMS X/ 

I = 0; 

EXEC SQL DECLARE S4 CURSOR FOR 

SELECT X FROM VIDEOS . IC0MP5 WHERE IIT = iCS; 
RCODE = SQLCODE; 

T = 'EXEC SQL OPEN 34 ' 5 

EXEC SQL OPEN S4; 
RCODE = SQLCODE; 

T = 'EXEC SQL FETCH S4 '; 

DO WHILE (I < IMAX & RCODE = 0); /X GET COMP. ITEMS X/ 
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EXEC SQL FETCH 
RCODE = SQLCODE; 
IF CI < IMAX & RCODE 
DO; /Jt FILL XCI x/ 

1 = 1 + 1; 

XCI.IITCI) 

XCI^IFCCI) 

XCI.IECCI) 



INTO iIIT, iICIT, tIFC, iILC, iIEC; 
0) THEN 



= IIT; 
= IFC; 
= lEC; 

END; /X OF FILLING XCI X/ 
END; /X OF RETRIEVING COMP. 
T = 'EXEC SQL CLOSE S4 
EXEC SQL CLOSE S^; 
RCODE = SQLCODE; 
XL = I; 
GOTO DONE; 

/X 



XCI-ICITCI) = ICIT; 
XCI.ILCCI) = ILC; 



ITEMS 



X/ 



X/ 



RPLTXTi ENTRY CXC8, XSR,XL,T, RCODE); /X GET DISPLAY STREP TABLE X/ 

C8 = XC8; T = 'EXEC SQL DECLARE T2 CURSO'; ^"^^f^ ^^^^^ 

IMAX = 100; /X MAXIMUM SIZE OF TEXT X/ 

1 = 0; 

18 = SUBSTRCC8,1,5)| M »; 
EXEC SQL DECLARE T2 CURSOR FOR 

SELECT X FROM VIDE03. STREPS WHERE STATE = :C8 UNION 

SELECT X FROM VIDEOS. STREPS WHERE STATE = tI8 

ORDER BY 1; 

RCODE = SQLCODE; 

T = 'EXEC SQL OPEN T2 «; 
EXEC SQL OPEN T2; 
RCODE = SQLCODE; 

T = 'EXEC SQL FETCH T2 '•; 

DO WHILE CI < IMAX & RCODE " 0); /X GET TEXT FROM TABLE X/ 
EXEC SQL FETCH T2 INTO tSTATE, sREPID, :STREp/ sDFCL, 

iDBCL, tDSL, :RLOC, :CLOC* 

iREPTXT, xNSTATE, iIVF; 

RCODE = SQLCODE; 
IF CI < IMAX 8 RCODE = 0) THEN 
DO;- /X FILL XSR x/ 
1=1+1; 

X5R.REPIDCI) = REPID; XSR.STREPCI) = STREP; 

XSR.DFCLCI) = DFCL; XSR.DBCLCI) = DBCL; 

XSR.DSLCI) = DSL; XSR.RLOCCI) = RLOC; 

XSR.{H.OC<I) = CLOC; XSR.REPTXTCI) = REPTXT; 

XSR.N5TATECI) = NSTATE; XSR.IVFCI) = IVF; 

END; /X OF FILLING XSR X/ 
END; /X OF RETRIEVING TEXT FORM TABLE X/ 
T = »EXEC SQL CLOSE T2 » ; 

EXEC SQL CLOSE T2; 
RCODE = SQLCODE; 
XL = I ; 
GOTO DONE; 



/X 

WARRTXTt ENTRY CITM, XTD,XL,T, RCODE); 
18 = ITM.IIT; 

CL8 = »»; S8 = »•; CHV20 = •«; 

IF ITM. COLOR THEN CL8 = ITM. COLOR; 



/X GET TEXT FROM WARRANS^ 
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IF ITM.SIZE THEN S8 ITH.SI2E; 

IF ITM. MODEL •» THEN CHV20 = ITM. MODEL; 

IHAX - 100; /X MAXIMUM SIZE OF TEXT X/ 

1 = 2; /K FILL XTD FROM THIRD ELEMENT 36/ 

IF CHV20 -= " THEN 

DO; /3C MODEL SPECIFIED X/ 

T = 'EXEC SQL DECLARE T9 CUR »; 

EXEC SQL DECLARE T9 CURSOR FOR 
SELECT IWN 

FROM VIDEOS. SIZC0L5 WHERE IIT = ilZ AND 
COLOR ^ tCL8 AND SIZE ' :S8 AND MODEL = :CHV20; 
RCODE = SQLCODE; 

T - 'OPEN CURSOR T9 •; 

EXEC SQL OPEN T9; 

RCODE = SQLCODE; 

T = 'EXEC SQL FETCH T9 

EXEC SQL FETCH T9 INTO »IWN; 

RCODE = SQLCODE; 

T = 'EXEC SQL CLOSE T9 

EXEC SQL CLOSE T9; 

RCODE = SQLCODE; 

END; /X WHEN MODEL SPECIFIED X/ 
ELSE IF S8 -= «« THEN 
DO; /X UPTO SIZE SPECIFIED X/ 

T = 'EXEC SQL DECLARE CUR TIO •; 

EXEC SQL DECLARE TIO CURSOR FOR SELECT IWN 

FROM VIDEOS. SIZC0L5 WHERE IIT = :I8 AND 
COLOR = iCL8 AND SIZE = :S8; 
RCODE = SQLCODE; 

T = »OPEN CURSOR TIO »; 
EXEC SQL OPEN TIO; 
RCODE = SQLCODE; 

T = »EXEC SQL FETCH TIO »; 
EXEC SQL FETCH TIO INTO «IWN; 
RCODE = SQLCODE; 

T = «EXEC SQL CLOSE TIO »; 
EXEC SQL CLOSE TIO; 
RCODE = SQLCODE; 

END; /X OF UPTO SIZE SPECIFIED ^ 
ELSE IF CL8 »' THEN 
DO; /X UPTO COLOR SPECIFIED X/ 
T = »EXEC SQL DECLARE CUR Til •; 
EXEC SQL DECLARE Til CURSOR FOR SELECT IWN 

FROM VIDEOS. SI2C0L5 WHERE IIT = tI8 AND 
COLOR = iCL8; 
RCODE = SQLCODE; 

T = 'OPEN CURSOR Til •; 
EXEC SQL OPEN Til; 
RCODE = SQLCODE; 

T = "EXEC SQL FETCH Til ■; 
EXEC SQL FETCH Til INTO iIWN; 
RCODE = SQLCODE; 

T = 'EXEC SQL CLOSE Til '; 
EXEC SQL CLOSE Til; 
RCODE = SQLCODE; 
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END; /X OF OPTO COLOR SPECIFIED X/ 
ELSE IF 18 »» THEN 
DO; /3f UPTO ITEM NAME SPECIFIED X/ 

T = 'EXEC SQL DECLARE CUR T12 •; 

EXEC SQL DECLARE T12 CURSOR FOR SELECT IWN 

FROM VIDEOS, SI2C0L5 WHERE IIT = :I8; 

RCODE = SQLCODE; 

T = 'OPEN CURSOR T12 •; 
EXEC SQL OPEN T12; 
RCODE = SQLCODE; 

T = »EXEC SQL FETCH T12 '; 
EXEC SQL FETCH T12 INTO iIWN; 
RCODE = SQLCODE; 

T = »EXEC SQL CLOSE T12 •; 
EXEC SQL CLOSE T12; 
RCODE = SQLCODE; 

END; /X OF UPTO NAME SPECIFIED X/ 
IF RCODE -= 0 THEN /X NO WARRANTY FOR ITEM X/ 
DO; 

XTDCI+1) = XTDCl); 

XTD,TTXCI+1) = • NO WARRANTY CODE FOR THE ITEM AVAILABLE •; 
XL " 1*^1 ; 
GOTO DONE; 
END; 

T = 'EXEC SQL DECLARE T7 •; 
EXEC SQL DECLARE T7 CURSOR FOR 

o^nnr^^^fST ^^^^ VIDEOS. WARRAN5 WHERE IWN = tlWN; 

RCODE - SQLCODE; 

T = 'EXEC SQL OPEN T7 »; 
EXEC SQL OPEN T7; 
RCODE = SQLCODE; 

T = »EXEC SQL FETCH T7 >; 

DO WHILE CI < IMAX & RCODE = 0); /5C GET TEXT FROM TABLE K/ 
EXEC SQL FETCH T7 INTO :WTXT; 
RCODE = SQLCODE; 
IF RCODE = 0 THEN 
DO; /X FILL XTD x/ 
1=1+1; 

XTDCI) = XTDCI - 1); /X COPY PARAMETERS INTO XTD ARRAY X/ 
XTD.TTXCI) = WTXT; x«iu aiu akkat ^ 

END; /X OF FILLING XTD X/ 
END; /X OF RETRIEVING TEXT FORM TABLE X/ 
T = 'EXEC SQL CLOSE T7 »; 
EXEC SQL CLOSE T7; 
RCODE = SQLCODE; 
XL = I ; 
GOTO DONE; 

/X . 

^^iF^^ITM^IIT-^^^"' XS,XL,T, RCODE); /X GET TEXT FROM SALES X/ 

CL8 = '»; S8 = »•; CHV20 = "; 

IF ITM. COLOR THEN CL8 ' ITM, COLOR; 

IF ITM. SIZE THEN S8 = ITM,SIZE; 

IF ITM. MODEL -= •» THEN CHV20 = ITM. MODEL; 

IMAX = 10; /X MAXIMUM SIZE OF TEXT X/ 
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1 = 0; /5f FILL XTD FROM SECOND ELEMENT K/ 

IF CHV20 -= •» THEN 

DO; /3C MODEL SPECIFIED X/ 

T = 'EXEC SQL DECLARE CUR T13 'i 

EXEC SQL DECLARE T13 CURSOR FOR SELECT ISP 

FROM VIDEOS. SIZC0L5 WHERE IIT = tI8 AND 
COLOR = jCL8 AND SIZE = iS8 AND MODEL = jCHVZO; 
RCODE = SQLCODE; 

T = *OPEN CURSOR T13 •; 
EXEC SQL OPEN T13; 
RCODE = SQLCODE; 

T = 'EXEC SQL FETCH T13 »; 
EXEC SQL FETCH T13 INTO iISP; 
RCODE = SQLCODE; 

T = 'EXEC SQL CLOSE T13 '; 
EXEC SQL CLOSE T15; 
RCODE = SQLCODE; 

END; /3C WHEN MODEL SPECIFIED K/ 
ELSE IF SS THEN 
DO; /X OPTO SIZE SPECIFIED X/ 

T = 'EXEC SQL DECLARE CUR Tl^ »; 

EXEC SQL DECLARE T14 CURSOR FOR SELECT ISP 

FROM VIDEOS. SIZC0L5 WHERE IIT = tI8 AND 
COLOR = iCLS AND SIZE = :S8; 
RCODE = SQLCODE; 

T = 'OPEN CURSOR Tl^ '; 
EXEC SQL OPEN TIA; 
RCODE = SQLCODE; 

T = 'EXEC SQL FETCH Tl 4 »; 
EXEC SQL FETCH T14 INTO iISP; 
RCODE = SQLCODE; 

T = 'EXEC SQL CLOSE T14 '; 
EXEC SQL CLOSE T14; 
RCODE = SQLCODE; 

END; /X OF UPTO SIZE SPECIFIED 3e/ 
ELSE IF CL8 " THEN 
DO; /X UPTO COLOR SPECIFIED X/ 
T = 'EXEC SQL DECLARE CUR T15 
EXEC SQL DECLARE T15 CURSOR FOR SELECT ISP 

FROM VIDEOS. SIZC0L5 WHERE IIT = iI8 AND 
COLOR = sCL8; 
RCODE = SQLCODE; 

T = 'OPEN CURSOR T15 »; 
EXEC SQL OPEN T15; 
RCODE = SQLCODE; 

T = 'EXEC SQL FETCH T15 '; 
EXEC SQL FETCH T15 INTO iISP; 
RCODE = SQLCODE; 

T = 'EXEC SQL CLOSE T15 '; 
EXEC SQL CLOSE T15j 
RCODE = SQLCODE; 

END; /X OF UPTO COLOR SPECIFIED X/ 
ELSE IF 18 " THEN 
DO; /X UPTO ITEM NAME SPECIFIED X/ 

T = 'EXEC SQL DECLARE CUR S3 '; 
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EXEC SQL DECLARE S3 CURSOR FOR SELECT ISP 

FROM VIDEOS. SIZC0L5 WHERE IIT = tIS; 
RCODE = SQLCODE; 
T = »OPEN CURSOR S3 
EXEC SQL OPEN S3 ; 
RCODE = SQLCODE; 
T = -EXEC SQL FETCH S3 
EXEC SQL FETCH S3 INTO :ISP; 
RCODE = SQLCODE; 

T = 'EXEC SQL CLOSE S3 »; 
EXEC SQL CLOSE S3 ; 
RCODE = SQLCODE; 

END; /X OF UPTO NAME SPECIFIED 3€/ 
IF RCODE -= 0 THEN /X NO SALE CODE FOR ITEM X/ 
DO; 

XSC2) = XSCl); 

XS.STXT(2) = » NO SALE CODE FOR THE ITEM AVAILABLE 

GOTO DONE; 

END; 

T = 'EXEC SQL DECLARE T8 »; 
EXEC SQL DECLARE T8 CURSOR FOR 

SELECT X FROM VIDEOS. SALES WHERE ISP = iISP; 
RCODE = SQLCODE; 

T = 'EXEC SQL OPEN T8 »; 
EXEC SQL OPEN T8; 
RCODE = SQLCODE; 

T = »EXEC SQL FETCH T8 »; 

DO WHILE (I < IMAX 8 RCODE = 0); /X GET TEXT FROM TABLE X/ 
EXEC SQL FETCH T8 INTO tISP, iSSD, :SED, :STXt" 

tSFC, jSLC, :SEC; 

RCODE = SQLCODE; 
IF RCODE = 0 THEN 
DO; /X FILL XS X/ 
1=1+1; 

XS.ISP(I) = ISP; XS.SSD(I) = SSD; XS.SED(I) := SED; 

XS.STXTd) = STXT; XS.SFCCI) = SFC; XS.SLCCI) = SLC; 

XS.SECCI) = SEC; 

END; /X OF FILLING XS X/ 
END; /X OF RETRIEVING TEXT FORM TABLE x/ 
T = "EXEC SQL CLOSE T8 »; 
EXEC SQL CLOSE T8; 
RCODE = SQLCODE; 
XL = I ; 
GOTO DONE; 

/X ^ 

DISTXTj entry CXC8, XTD,XL,T, RCODE); /X GET DISPLAY TEXT2 TABLE X/ 

C8 = XC8; T = «EXEC SQL DECLARE SI CURSO»; 
IMAX = 100; /X MAXIMUM SIZE OF TEXT X/ 

1=0; 

EXEC SQL DECLARE SI CURSOR FOR 

SELECT X FROM VIDEOS, TEXTS WHERE TIT = iC8; 
RCODE = SQLCODE; ^ 
T = »EXEC SQL OPEN SI •; 
EXEC SQL OPEN SI; 
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RCODE = SQLCODEj 

T = 'EXEC SQL FETCH SI »; 

DO WHILE (I < IMAX & RCODE = 0); /K GET TEXT FROM TABLE 3e/ 
EXEC SQL FETCH SI INTO iTIT, iTCN, iTSEQ, 

iDFCL, :DBCL, «DSL, xTTX; 

RCODE = 5QLC0DE; 
IF (TIT = C8 & RCODE = 0) THEN 
DO; /X FILL XTD X/ 
1=1+1; 

XTD.DFCL(I) = DFCL; XTD.DBCL(I) = DBCL; 
XTD.DSL(I) = DSL; XTD.TTX(I) = TTX; 
IF TCN » * THEN DO; /36 RESET CURSOR X/ 

C8 = TCN; 

T ^ »EXEC SQL CLOSE SI •; 
EXEC SQL CLOSE SI; 
GOTO L4; 

END; /X RESETTING CURSOR K/ 
END; /X OF FILLING XTD 
END; /Je OF RETRIEVING TEXT FORM TABLE K/ 
T = "EXEC SQL CLOSE SI •; 
EXEC SQL CLOSE 51; 
RCODE = SQLCODE; 
XL = I ; 
GOTO DONE; 

/X 

ITEMIHFt ENTRY (XCS, XI, T, RCODE); 

C8 = XCS; T = 'FETCH ITEM INFORMATION »; 
EXEC SQL SELECT X 

INTO :IIT, aiC, iIODN, :ICIT, :INM, 

jIVF, »IFM, iILM, tIFC, iILC, jIEC 
FROM VIDEOS. ITEMS 
WHERE IIT = iC8; 
RCODE = SQLCODE; 
IF RCODE = 0 THEN DO; 

XI. IIT = IIT; XI. lie = IIC; XI.IODN = lODN; XI.ICIT = ICIT; 
XI.INM = INM; XI.IVF = IVF; XI.IFM IFM; XI.ILM = ILM; 
XI.IFC = IFC; XI.ILC = ILC; XI.IEC = lEC; 
END; 
GOTO DONE; 

~ 9e/ 

ITEMNMt ENTRY (XC8, C40, T, RCODE); 

C8 = XC8; T = 'FETCH ITEM NAME »; 
C4D = •'; 

EXEC SQL SELECT INM INTO iINM 
FROM VIDEOS. ITEMS 
WHERE IIT = rCS; 
RCODE = SQLCODE; 
IF RCODE = 0 THEN 
C**0 = INM; 
GOTO DONE; 

/X 

ITEMCSM: ENTRY (ITM,MSCI,XSR,XL ,T, RCODE); /X GET ITEM COLORS x/ 

DCL LASTITEM^BIT BIT(l) INITCO'B); /X INDICATES IF THE LAST 
MENU ITEM IS TO BE MOVED TO END OF XSR TABLE X/ 
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/X FETCH ITEM HEADER AND ONE ITEM FROM STREPS X/ 
SVDTYPE = XSR.NSTATECl); 

C8 = XSR.NSTATECl); T = 'EXEC SQL DECLARE T3 CURSOR 
IMAX = 6; /X MAXIMUM SIZE OF TEXT X/ 

1 = 0? 

EXEC SQL DECLARE T3 CURSOR FOR 

SELECT X FROM VIDEOS .STREPS WHERE STATE = iC8; 
RCODE = SQLCODE; 

T = 'EXEC SQL OPEN T3 »; 
EXEC SQL OPEN T3; 
RCODE = SQLCODE; 

T = 'EXEC SQL FETCH T3 » ; 

DO WHILE (I < IMAX S RCODE = 0); /x GET TEXT FROM TABLE X/ 
EXEC SQL FETCH T3 INTO :STATE, tREPID. iSTREP, :DFCL, 

:DBCL, :DSL, iRLOC, »CLOC, 
tREPTXT, tNSTATE, :IVF; 

RCODE = SQLCODE; 
IF CI < IMAX & RCODE = 0) THEN 
DO; /X FILL XSR WITH HEADER X/ 
1=1+1; 

XSR.REPIDCI) = REPID; XSR.STREPCI) = STREP; 

XSR.DFCLCI) = DFCL; XSR.DBCLCI) = DBCL; 

XSR.DSLCI) = DSL; XSR.RLOCCI) = RLOC; 

XSR.CLOCCI) = CLOC; XSR.REPTXTCI) = REPTXT; 

XSR.NSTATECl) = NSTATE; XSR.IVFCI) = IVF; 

END; /X OF FILLING XSR X/ 
END; /X OF RETRIEVING TEXT FORM TABLE X/ 
T = 'EXEC SQL CLOSE T3 •; 
EXEC SQL CLOSE T3; 
RCODE = SQLCODE; 

/X FETCH DISTINCT ITEM COLOR OR SIZE OR MODEL 
FROM SIZC0L5 AND STORE IN XSR. 
IN XSR STORE THE LAST ITEM FROM STREPS AS EVERY MSCI 
ELEMENT X/ 
C8 = ITM.IIT; 

IF SUBSTRCSVDTYPE,1,5) = 'COLOR* THEN 

T = 'EXEC SQL DECLARE T4 CURSO»; 
ELSE IF SUBSTRCSVDTYPE,1,4) = "SIZE" THEN 

T = 'EXEC SQL DECLARE T5 CURSO»; 
ELSE IF SUBSTRCSVDTYPE,1,5) = 'MODEL' THEN 

7 = 'EXEC SQL DECLARE T6 CURSO'; 
CL8 = ITM. COLOR; 
S8 = ITM. SIZE; 

IF I > 1 THEN /X LAST MENU ITEM TO BE MOVED TO LAST OF XSR X/ 
1=1-1; 

ELSE IF I = 1 THEN /X NO MENU ITEM IN STREPS X/ 
DO; 

LASTITEM_BIT = 'I'B; 

IF CLOC = ' 0» THEN CLOC = ' 1'; 

END; 
CHV20V = "; 
XL = I ; 
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TMAV = 95; 

IF SUBSTRCSVDTYPEa,5) = •COLOR* THEN 
DO; 

EXEC SOL DECLARE T4 CURSOR FOR 

IeLeCT COLOR, lEM FROM VIDEOS. SIZC0L5 

WHERE IIT = :C8 AND QOH > 0 
ORDER BY COLOR; 

ELSE^IF SUBSTRCSVDTYPE,1,A) = »SIZE« THEN 
DO; 

EXEC SQL DECLARE T5 CURSOR FOR ^ 

SELECT SIZE, lEM FROM VIDEOS .SIZC0L5 ^ ^^^^ ^ ^ 

ORDER BY SIZE; 

ELSE^IF SUBSTRCSVDTYPE,I,5) - 'MODEL' THEN 
DO; 

EXEC SQL DECLARE 16 CURSOR FOR ' , 

SELECT MODEL, lEM FROM VIDEOS, SIZC0L5 . e« 

WHERE IIT = jCS AND COLOR. = :CL8 AND SIZE = xS8 
AND QOH > 0 

ORDER BY MODEL; 

END; 

RCODE = SQLCODE; 

IF SUBSTR(SVDTYPE,1,5) = 'COLOR' THEN 
DO; 

T = 'EXEC SQL OPEN T4 ' ; 

EXEC SQL OPEN T^; 
END * 

ELSE IF SUBSTRCSVDTYPE,1,^) = 'SIZE' THEN 
DO; 

T = 'EXEC SQL OPEN T5 'J 
EXEC SQL OPEN T5; 

ELSE^IF SUBSTRCSVDTYPE,1,5) = 'MODEL' THEN 
DO; 

T = 'EXEC SQL OPEN T6 '; 

EXEC SQL OPEN T6; 

END; 

DO°WHILE^?i^<^^iMAX & RCODE = 0); GET TEXT FROM TABLE ^ 
IF SUBSTRCSVDTYPE,1,5) = 'COLOR' THEN 

^°T = 'EXEC SQL FETCH T4 

EXEC SQL FETCH T4 INTO i COLOR, iIEM; 
CHV20 = COLOR; 

ELSE^IF SUBSTRCSVDTYPE,1,4) = 'SIZE' THEN 
DO; 

T = 'EXEC SQL FETCH T5 ' ; 

EXEC SQL FETCH 15 INTO iSIZE, iIEM; 
CHV20 = SIZE; 
END * 

ELSE IF 5UBSTRCSVDTYPE,1,5) = 'MODEL' THEN 
DO; 
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T = »EXEC SQL FETCH 16 

EXEC SQL FETCH T6 INTO iMODEL, tIEM; 

CHV20 = MODEL; 

END; 

RCODE = SQLCODE; 

IF (I < IMAX & RCODE = 0 & (CHV20 CHV20V | I = XL)) THEN 
DO; /X FILL XSR x/ 

CHV20V = CHV20; 

1=1+1; 

II = MODCI,MSCI); 

IF II = 0 & -LASTITEM BIT THEN 

/X STORE THE LAST ELEMENT OF STREPS X/ 

DO; 

XSR.REPIDCI) = REPID; XSR.STREPCI) = STREP; 
XSR.DFCLCI) = DFCL; XSR.DBCLCI) = DBCL; 
XSft.DSL(I) = DSL; XSR.RLOCCI) = RLOC; 
XSR.CLOCCI) = CLOC; XSR.REPTXTCI) = REPTXT; 
XSR.NSTATECI) = NSTATE; XSR.IVFCI) = IVF; 
1=1+1; 

IF I >= IMAX THEN GOTO DONE; 
END; 

II = 2X1; CH9 = II; 

XSR.DFCLCI) = DFCL; XSR.DBCLCI) = DBCL; 
XSR.DSLCI) = DSL; XSR.RLOCCI) - SUBSTRCCH9,8,2); 
XSR.CLOCCI) = CLOC; 

IF SUBSTRCSVDTYPE,1,5) *= 'COLOR' THEN 
DO; /X SAVE STREP AND COLOR X/ 
XSR.REPTXTCI) - COLOR; 

DO IX = 1 TO 6; /X BUILD IN CH6 ITEM PADDED WITH 0 X/ 
IF SUBSTRCITM.IIT,IX,1) -= ' ' THEN 

SUBSTRCCH6,IX>1) = SUBSTRCITM.IIT,IX,1); 
ELSE SUBSTRCCH6,IX,1) = '0»; 
END; 

XSR.STREPCI) - CH6I|SUBSTRCC0L0R,2,2); 
END; 

ELSE IF SUBSTRCSVDTYPE,!,^) = 'SIZE* THEN 
DO; /X SAVE STREP AND SIZE X/ 
XSR.REPTXTCI) = SIZE; 

XSR.STREPCI) = SUBSTRCITM.STREP,1,8)| |SUBSTRCSIZE,1/1); 
END; 

ELSE IF SUBSTRC5VDTYPE,1,5) = 'MODEL" THEN 
DO; /X SAVE STREP AND MODEL X/ 
XSR.REPTXTCI) = MODEL; 

XSR.STREPCI) = SUBSTRCITM.STREP,l*9)I|SUBSTRCM0DELaa); 
END; 

XSR.NSTATECI) = XSR.NSTATECl); XSR.IVFCI) = I EM; 
END; /X OF FILLING XSR X/ 
END; /X OF RETRIEVING TEXT FORM TABLE X/ 
IF SUBSTRCSVDTYPE,1,5) = 'COLOR' THEN 
DO; 

T = "EXEC SQL CLOSE T4 '; 

EXEC SQL CLOSE T^; 

END; 

ELSE IF SUBSTRCSVDTYPE,1,4) = 'SIZE' THEN 
DO; 
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T = 'EXEC SQL CLOSE 15 U 
EXEC SQL CLOSE 15; 

ELSE^IF SUBSTRCSVDTYPE,l/5) = 'MODEL* THEN 
DO; 

T = 'EXEC SQL CLOSE T6 "; 

EXEC SQL CLOSE T6; 

END; 

IF^XL = I THEN /X REQUESTED COLOR OR SIZE OR MODEL OF ITEM 
NOT IN STOCK ^/ 

DO; I = I + 1; 

IF SUBSTRCSVDTYPE,1*5) = 'COLOR' THEN 

XSR.REPTXTCl) = 'REQUESTED COLOR OUT OF STOCK.'; 
ELSE -IF SUBSTR(SVDTYPE,1.4) = 'SIZE' THEN 

XSR.REPTXTCl) = 'REQUESTED SIZE OUT OF STOCK.'; 
ELSE IF SUBSTRCSVDTYPE,1,5) = 'MODEL' THEN 

XSR.REPTXTCl) = 'REQUESTED MODEL OUT OF STOCK.'; 
XSR.DFCLCI) = DFCL; XSR.DBCLCI) = DBCL; 
XSR.RLOCCI) = RLOC; XSR.CLOCCI) ^ CLOC; 
XSR.DSLCI) = DSL; ^ ^^.^ 

XSR.NSTATECl) = XSR.NSTATECl); XSR.IVFCI) = IVF; 
XL = I; . 
RCODE = -5; 
GOTO DONE; 

IF^-LASTITEM BIT THEN /X MOVE LAST MENU ITEM TO XSR 3e/ 
DO; 

1=1+1; 

XSR.REPIDCI) = REPID; XSR.STREPCI) = STREP; 
XSR.DFCLCI) = DFCL; XSR.DBCLCI) = DBCL; 
XSR.DSLCI) = DSL; XSR.RLOCCI) = RLOC; 
XSR.CLOCCI) = CLOC; XSR.REPTXTCl) = REPTXT; 
XSR.NSTATECl) = NSTATE; XSR.IVFCI) = IVF; 
END; /X MOVING LAST MENU ITEM X/ 

IF SUBSTRCSVDTYPEa,5) = 'MODEL' THEN /X SAVE ITEM NAME K/ 
DO; 

T = 'FETCH ITEM NAME '; 
EXEC SQL SELECT INM 
INTO iINM 
FROM VIDEOS .ITEMS 
WHERE IIT = «C8; 
RCODE = SQLCODE; 

IF RCODE = 0 THEN ITM.INM = INM; 
END; /X OF SAVING ITEM NAME ^ 
GOTO DONE; 

/X 

ADJQUANt ENTRY CITM,TYP,T, RCODE); „irn..rroT«rn 
/X CHECK QUANTITY OF ITEM REQUESTED. 

IF QUANTITY AVAILABLE ADJUST QOH IN SIZC0L5 X/ 

C8 = ITM.IIT; 
CL8 = ITM. COLOR; 
S8 = ITM. SIZE; 
CH20 = ITM. MODEL; 
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T = 'FETCH ITEM QUANTITY 
EXEC SQL SELECT QOH 
INTO >QOH 

FROM VIDEOS. SIZC0L5 

WHERE IIT = tC8 AND COLOR = tCL8 AND SIZE - iS8 
AND MODEL = iCHZO; 

RCODE = SQLCODE; 

IF RCODE = 0 THEN . 
DO; 

IF TYP = 'SUB' & QOH < ITM.QUAN THEN 

/X RETURN QUANTITY AVAILABLE IN ITM.QUAN X/ 

DO; 

ITM.QUAN = QOH; 
GOTO DONE; 
END; 

ELSE IF TYP ; 'SUB' & QOH >= ITM.QUAN THEN 

F31 -%0H -^ITM ^UAN^^"'^^^ QUANTITY FROM QOH IN SIZC0L5 X/ 

ELSE IF TYP = 'ADD' THEN 

/X ADD REQUESTED QUANTITY TO QOH IN SIZC0L5 X/ 
F31 = QOH + ITM.QUAN; ^^^"1-^ x, 

/X ADJUSTING QOH IN SIZC0L5 X/ 
T = 'UPDATE ITEM QUANTITY '; 
EXEC SQL UPDATE VIDE03.SIZC0L5 
SET QOH = :F31 

WHERE IIT = :C8 AND COLOR = iCL8 AND SIZE = sS8 
AND MODEL = »CH20; 
RCODE = SQLCODE; 
END; 
GOTO DONE; 

/X 

IPRICEi ENTRY (XC8, XP, T, RCODE); 

C8 = XC8; T = 'FETCH ITEM PRICE '; 
EXEC SQL SELECT X 

INTO iIIT, :IODN, :IRP, :IPQ, 

»PSD, iPED, iIEP 
FROM VIDEOS. PRICES 
WHERE IIT = :C8 AND IPQ = 1; 
RCODE = SQLCODE; 
IF RCODE = 0 THEN DO; 

XP.IIT = IIT; XP.IODN = lODN; XP.IRP = IRP; XP.IPQ = IPQ; 
XP^PSD = PSD; XP.PED = PED; XP.IEP = lEP; 

GOTO DONE; 

/X 

CHARGEt ENTRY (XC12, XL, T, RCODE); ^ 
C12 = XC12; T = 'CHARGE CUSTOMER CREDIT •; 
EXEC SQL SELECT CLIM 

INTO :CLIM 

FROM VIDE03.CUSTM5 

WHERE CID = iC12; 
RCODE = SQLCODE; 
IF RCODE -= D THEN GOTO DONE; 
IF CLIM >= XL THEN /X SUFFICIENT CREDIT X/ 
DO; /X CHARGE ACCOUNT X/ 
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XCU.CLIM = CLIM; 
XL = XCU.CLIM - XL; 
EXEC SQL UPDATE VIDEOS, CUSTM5 
SET CLIM = tXL 

WHERE CID ~ :C12' 
END; /X OF CHARGING ACCOUNT X/ 
ELSE /X INSUFFICIENT CREDIT K/ 
DO; 

XCU.CLIM = CLIM; 
XL = XL - XCU.CLIM; 
RCODE = 999999; 

END; /X OF HANDLING INSUFFICIENT CREDIT X/ 
GOTO DONE; 

/X X/ 

PASSWDi ENTRY (XC12, XC8, T, RCODE); 

C12 - XC12; T = 'FETCH CUSTOMER PASSWORD •; 
EXEC SQL SELECT X 

INTO tCID, tPASS, iCADD, tCLIM 
FROM VIDE03.CUSTM5 
WHERE CID - iC12; 
RCODE = SQLCODEi 
XC8 = PASS; 
GOTO DONE; 

/X 3£/ 

INXDATAj ENTRY(:XC20, XSI,XL, T, RCODE); 
/X GET DSIPLAY XSI TABLE X/ 

T = 'EXEC SQL INXDATA INTO XSI»; 

IMAX = 100; 

I = 20; 00000100 

DO WHILE (I > 0); 00000200 
IF SUBSTR(XC20,I,1) = ■ ■ THEN 1=1-1; 00000300 
ELSE GOTO LI; 00000^00 
END; 00000500 

Lli 00000600 

EXEC SQL DECLARE S2 CURSOR FOR 
SELECT X FROM VIDEOS. DEPT5 
WHERE IDEPT LIKE :CHV20; 

CHV20 = ISUBSTRCXC20,1,I)| I »X'; 00000700 

RCODE = SQLCODE; 

T = 'EXEC SQL OPEN S2 

EXEC SQL OPEN S2; 

RCODE = SQLCODE; 

T = 'EXEC SQL FETCH S2 •; 
1 = 0; 

DO WHILE CI < IMAX & RCODE - 0); /X GET INDEX FROM TABLE X/ 
EXEC SQL FETCH S2 INTO » IDEPT, iIIT, tim, iIFC, 

tILC, iIEC; 

RCODE = SQLCODE; 

IF (IDEPT = XC20 & RCODE = 0) THEN 
DO; /X FILL XSI X/ 
1=1+1; 

XSI.IIT(I) = IIT; XSI.INMCI) = INM; 
XSI.IFC(I) = IFC; XSI.ILCCI) = ILC; 
XSI.IECCI) = lEC; 
END; /X OF FILLING XSR x/ 
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END; /3C OF RETRIEVING TEXT FORM TABLE X/ 
T = 'EXEC SQL CLOSE S2 »; 
EXEC SQL CLOSE S2; 
RCODE = SQLCODEj 
XL = I ; 
GOTO DONE; 

/X *^ 

FINDITt ENTRYtXI, FN, T, RCODE); 
Fl = FN; 

T = 'EXEC SQL FIND ITEM FOR FH'; 
EXEC SQL SELECT X 

INTO iIIT, :IIC, :IODN, :ICIT, iINM, 

:IVF, iIFM, iILM, »IFC, xILC> «IEC 
FROM VIDEOS. ITEMS 
WHERE IFC <= «F1 AND ILC >= »F1 

AND ILC - IFC = (SELECT MIN CILC - IFC) FROM VIDEOS. ITEMS 
WHERE IFC <= iFl AND ILC >= :F1); 

XI?IIT"=^liT?^^XI.IIC = IIC; XI.IODN = lODN; XI.ICIT = ICIT; 
XI.INM = INM; XI.IVF = IVF; XI.IFM = IFM; XI.ILM = ILM; 
XI. IFC = IFC; XI. ILC = ILC; XI.IEC = lEC; 
GOTO DONE; 

/X *^ 

ITEMCUR: ENTRYCFF, FL, T, RCODE); 
T = 'EXEC SQL ITEM CURSOR'; 

IF FF = 1000 I FL = 54000 THEN DO; RCODE = -10; GOTO DONE; END; 
FF = FF + 1; /X TO AVIOD DEMO ITEM X/ 
EXEC SQL DECLARE CI CURSOR FOR 
SELECT X 

INTO sIIT, :IIC, :IODN, iICIT, :INM, 

:IVF, :IFM, xILM, :IFC, illO, tlEC 
FROM VIDEOS. ITEMS 
WHERE IFC >= iFF AND ILC <= »FL 
ORDER BY IFC; 
RCODE = 5QLC0DE; 
EXEC SQL OPEN CI; 
RCODE = SQLCODE; 
EXEC SQL FETCH CI; 

XIl^IIT i^''?^^XIl,IIC = "; XIl.IODN = "; XII. ICIT = "; 
XII. INM = "; XII. IVF = 0; XII. IFM = 0; XII. ILM = 0; 
XII. IFC = 0; XII. ILC = 0; XIl.IEC = 0; 
1 = 0; 

DO WHILE (SQLCODE -= 100); 
1=1+1; 

IF I > 100 THEN DO; RCODE = -10; GOTO DONE; END; 

XIl.IITCI) = IIT; XIl.IICCI) = IIC; XIl.IODNCI) =^IODN; 
XIl.ICITCI) = ICIT; XIl.INMCI) = INM; XIl.IVFCI) = IVF; 
XIl.IFMCI) = IFM; XIl.ILMCI) = ILM; 

XIl.IFCCI) = IFC; XIl.ILCCI) = ILC; XIl.IECCI) = lEC; 
EXEC SQL FETCH CI; 
RCODE = SQLCODE; 

IF SQLCODE < 0 THEN GOTO SQLERR; 
END; 

EXEC SQL CLOSE CI; 
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RCODE c SQLCODE; 
IF I = D THEN RCODE = -10; 
GOTO DONE; 

/X ^y, 

ITEMSETi ENTRYCXI, T, RCODE); 
Fl = XI.IFC; T = 'EXEC SQL ITEHSET •; 
RCODE = -10; 
ITEMPOS = 0; 
DO I = 1 TO 100; 

IF XIl.IFC(I) = Fl THEN DO; ITEMPOS = I; 
I = 100; RCODE = 0; END; 

END; 

GOTO DONE; 

^y 

GOTO DONE; 

/X K/ 

ADJITEMi ENTRYCXI, RP, T, RCODE); 

T = 'EXEC SQL ADJACENT ITEM »; 

1 = 0; 

IF RP = «NI" THEN DO; /ae GET NEXT ITEM X/ 
ITEMPOS = ITEMPOS + 1; I = ITEMPOS; 
END; /X OF NEXT ITEM X/ 
ELSE IF RP = 'PI' THEN DO; /X GET PREVIOUS ITEM X/ 
ITEMPOS = ITEMPOS - 1; I = ITEMPOS; 
END; /X OF PREVIOUS ITEM X/ 
IF I > 0 « I <= lOO THEN DO; 

IF XIl.IVFCI) = " 1 XIl.IIT(I) = " 
THEN DO; RCODE = -5; GOTO DONE; END; 
XI.IIT = XIl.IIT(I); XI.IIC = XIl.IICCI); 
XI.IODN = XIl.IODNCI); XI.ICIT = XIl.ICIT(I); 
XI.INM = XIl.INMCI); XI.IVF = XIl.IVFCI); 
XI.IFM = XIl.IFMCI); XI.ILM = XIl.ILMCI); 
XI.IFC = XIl.IFCCI); XI.ILC = XIl.ILC(I); 
XI.IEC = XIl.IECCI); 
RCODE = 0; 
END; 
ELSE 

RCODE = --5; 
GOTO DONE; 

/X X/ 

COMMIT I ENTRY (T, RCODE); 

T = 'COMMIT WORK •; 

EXEC SQL COMMIT WORK; 

RCODE = SQLCODE; 
GOTO DONE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/X ROUTINE FOR HANDLING ERRORS X/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
SQLERR» 

DISPLAY C 'UNEXPECTED SQL ERROR RETURNED'); 

DISPLAY ('CHANGES WILL BE BACKED OUT'); 

DISPLAY ('FAILING SQL STATEMENT IS'); 
ERRl: DISPLAY (T); 
DISPLAY(SQLCODE); 
RCODE = SQLCODE; 
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TcSKIP; 

/X IGNORE ERRORS DURING ROLLBACK TO AVOID ERROR ROUTINE LOOP x/ 
EXEC SQL WHENEVER SQLERROR CONTINUE; 
EXEC SQL ROLLBACK NORK; 
GOTO DONE; 

/X X/ 

DONE: 

END SHOWQ; 
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DCL 



QKSHOPl 1 PROCEDURE OPTIOMS ( MAIN 

yj£ 

DCL (ADDR, INDEX, SIGN, SUBSTR, 
5H0WVI ENTRY EXTERNAL, 
DISTXT ENTRY EXTERNAL, 
RPLTXT ENTRY EXTERNAL, 
ITEMINF ENTRY EXTERNAL, 
ITEMNM ENTRY EXTERNAL, 
ITEMCSM ENTRY EXTERNAL, 
WARRTXT ENTRY EXTERNAL, 
SALETXT ENTRY EXTERNAL, 
ADJQUAN ENTRY EXTERNAL, 
CHARGE ENTRY EXTERNAL, 
IPRICE ENTRY EXTERNAL, 
ITEMCUR ENTRY EXTERNAL, 
ITEMSET ENTRY EXTERNAL, 
SUGGITM ENTRY EXTERNAL , 
AD J ITEM ENTRY EXTERNAL, 
INXDATA ENTRY EXTERNAL, 
ENTRY EXTERNAL, 
ENTRY EXTERNAL, 



); 



3C/ 



PASSWD 
FRMNU 
FINDIT 



ENTRY EXTERNAL, 
ASMFILE ENTRY EXTERNAL, 
WAITPC ENTRY EXTER?4AL, 
CONNECT ENTRY EXTERNAL, 
SEARCH ENTRY EXTERNAL, 
STOP ENTRY EXTERNAL, 
AUTOSTP ENTRY EXTERNAL, 
COMMIT ENTRY EXTERNAL, 
PLI327 0 ENTRY EXTERNAL; 



/5C 



TRANSLATE, MOD) BUILTIN; 

/K INITIALIZE VIDEO PLAYER X/ 

GET DISPLAY TEXT ^/ 

/X GET REPLY OPTIONS TEXT X/ 

/X GET ITEM INFORMATION X/ 

/X GET ITEM NAME X/ 

/X GET ITEM COLORS, SIZE,MODEL x/ 

/5C GET WARRANTY TEXT K/ 

/X GET ITEM SALE INFORNATION X/ 

/X ADJUST ITEM QUANTITY X/ 

/X CHARGE CUSTOMER CREDIT X/ 

/X GET ITEM PRICE X/ 

/X PUTS DEMO ITEMS IN XII X/ 
/X CURSOR FOR SELECT. DEMO ITEM X/ 

/X GET SUGGESTED ITEMS X/ 

/X GETS ADJACENT DEMO ITEM X/ 

/X GET INDEX DATA X/ 

/X FETCH CUSTOMER PASSWORD X/ 

/X FETCH FRAME NUMBER X/ 

/X FIND ITEM FROM FRAME NUMBER X/ 
/X PRODUCES A CMS FILE OF SCREENX/ 

/X WAIT FOR REPLY FROM PC X/ 

/X CONNECT TO SQL/DS X/ 

/X FETCH VIDEO DISK FRAME X/ 

/X STOP VIDEO DISK 3C/ 

/X AUTO STOP VIDEO DISK X/ 

/X COMMIT ALL WORK X/ 
/X DISPLAY SCREEN WAIT FOR REPLYX/ 

X/ 



DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 



SCREEN 

DFCL 

DBCL 

STMT 

RCODE 

cv 

CVS, 
2 CVl 
2 PCVC 



CHAR(1760); /X SCREEN BUFFER X/ 

BIN FIXEDC31); /x SCREEN TEXT COLOR X/ 

BIN FIXED(31); /X SCREEN BACK GROUND COLOR X/ 

CHAR(25); /X STATEMENT VARIBAIE X/ 

BIN FIXED(31); RETURN CODE FROM SQL X/ 

BIN FIXED(31); /X VIDEO FRAME NUMBER X/ 



BIN FIXED(31), /X VIDEO FRAME NUMBER X/ 
VAR CHARC72); /x PC VIDEO COMMAND X/ 
DCL CVSPfR">OINTER; POINTER TO CVS _ x/_^ 
/X 



X/ 



DCL 1 



XI, 
2 IIT 
2 lie 
2 lODN 

2 ICIT 
2 INM 
2 IVF 



CHAR(8), 
CHAR(20), 
CHARC12), 

CHAR(8), 
CHAR(AO), 
FIXED BINC31), 



2 IFM FIXED BINC31), 



/X ITEM STRUCTURE X/ 

/X ITEM ID, UNIQUE FOR AN ITEM. X/ 
/X ITEM KEY X/ 
/X CATALOGUE NUMBER OR ORDER 

NUMBER. X/ 
/X ITEM ID OF COMPLEMENT ITEM. X/ 
/X NAME OF ITEM. X/ 
/X VIDEO FRAME NUMBER FOR STATIC 

DISPLAY. X/ 
/X FIRST FRAME t FOR DISPLAYING 
ITEM FROM DIFFERENT POSITIONS. X/ 
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2 ILM FIXED BIN(31), 

2 IPC FIXED BINC31), 

2 ILC FIXED BINCSl), 

2 lEC FIXED BINC31); 



DCL 1 XDI, 

2 IDEPT 



CHARC20), 



2 IIT CHARCS), 

2 INM CHARC^O), 

2 IFC FIXED BINC31), 

2 ILC FIXED BIN(31), 

2 lEC FIXED BINC31); 



/X LAST FRAME t FOR DISPLAYING 

ITEM FROM DIFFERENT POSITIONS. X/ 
/X FIRST COMMERCIAL FRAME NUMBER. K/ 
/X LAST COMMERCIAL FRAME NUMBER. X/ 
END COMMERCIAL FRAME NUMBER. 9C/ 

/X DEPARTMENT INDEX TABLE X/ 
/X DEPARTMENT NAME IN WHICH ITEM 

SOLD, REPEATING VALUE. 9C/ 
/X ITEM ID, NON UNIQUE. X/ 
/^x NAME OF ITEM, X/ 
/X FIRST COMMERCIAL FRAME NUMBER. X/ 
/X LAST COMMERCIAL FRAME NUMBER. X/ 
/X END COMMERCIAL FRAME NUMBER. X/ 



DCL 1 XBI, 

2 IBRAND 



CHARC20), 



DCL 



2 IIT CHARCS), 

2 INM CHARC^iOD, 

2 IFC FIXED BIN(31), 

2 ILC FIXED BINC31), 

2 lEC FIXED BIN(31); 



1 XT, 
2 TIT 



CHARCS), 



2 TCN CHARCS), 

2 TSEQ CHARC7), 

2 DFCL FIXED BINC31), 

2 DBCL FIXED BINC31), 

2 DSL FIXED BINC31), 
2 TTX CHARC74)i 



/X BRAND NAME INDEX TABLE X/ 
/X BRAND NAME OF ITEM 

REPEATING VALUE X/ 

/X ITEM ID, NON UNIQUE. X/ 

/X NAME OF ITEM. X/ 

/X FIRST COMMERCIAL FRAME NUMBER. X/ 

/X LAST COMMERCIAL FRAME NUMBER. X/ 

/X END COMMERCIAL FRAME NUMBER. X/ 

/X ITEM TEXT TABLE X/ 
/X ITEM ID. 

IF TEXTS COVERING MULTIPLE TUPLES 

ARE LINKED BY SAME VALUE OF THIS 

FIELD. X/ 
/X CONTINUATION NUMBER. A LINK CODE 

FOR ITEMS HAVING SAME TEXT. X/ 
/X A SEQUENCE NUMBER FOR EACH TUPLE 

OF THIS TABLE. X/ 
/X TEXT COLOR DISPLAY CODE, USED 

BY SCREEN GENERATOR PROGRAM. X/ 
/-X BACK GROUND COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM. X/ 
/X TEXT LETTER SIZE DISPLAY CODE. X/ 
/X TEXT. X/ 



DCL 1 



CS, 
2 IIT 
2 SIZE 



2 COLOR CHARC8), 

2 MODEL CHARC2D), 

2 lODN CHARC12), 
2 IBRAND CHARC20), 



2 ISP 
2 IMN 



. /X MICRO INFORMATION TABLE X/ 
CHARCS), /X ITEM NUMBER. x/ 

CHARCS), /X ITEM SIZE, DATA ONLY FOR SIZES 

OF THE ITEM AVAILABLE IN STORE. X/ 
/X ITEM COLOR, DATA ONLY FOR COLORS 
OF THE ITEM AVAILABLE IN STORE. X/ 
/X ITEM MODEL, DATA ONLY FOR MODELS 

OF THE ITEM AVAILABLE IN STORE X/ 
/X ITEM CATALOGUE, NO CODES X/ 
/X BRAND NAME OF ITEM 

REPEATING VALUE. X/ 
CHARCS), /X ITEM SALES PROMOTION CODE. POINTS 

TO TABLE SALE2. X/ 
CHARCS), /X ITEM WARRANTY CODE. POINTS TO 

TABLE WARRAN. X/ 
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2 IFM FIXED BIN(31), 

2 ILM FIXED BINC31)/ 

2 lEM FIXED BINCSl), 

2 QOH BIN FIXED (31), 
2 ISW BIN FIXED (31); 

DCL 1 XSCIO), 

2 ISP CHARC8), 

2 SSD CHARCB), 

2 SED CHAR(8), 

2 STXT CHAR(74)/ 

2 SFC FIXED BIN C 31), 

2 SLC FIXED BINC31), 

2 SEC FIXED BIN(31); 



DCL 1 XW, 

2 IWN 
2 WTXT 
2 MGEN 



CHAR(8), 

CHARC40), 

CHARC40), 



2 WFI FIXED BIN(31), 
2 WLI FIXED BIN(31); 



DCt I XP, 

2 IIT 
2 lODN 

2 IRP 

2 IPQ 



CHAR(8), 
CHAR(12), 

FIXED BIN(31), 

FIXED BIN(31), 



2 PSD CHARC8), 
2 PED CHAR(8), 
2 lEP FIXED BIN(31); 



DCL 



1 XCI(IO), 
2 IIT 

2 ICIT 



CHAR(8), 
CHAR(8), 



2 IFC FIXED BINC31), 
2 ILC FIXED BIN(31), 
2 lEC FIXED BINC31); 



/K FIRST MICRO INFORMATION FRAME 
NUMBER. X/ 

LAST MICRO INFORMATION FRAME 
NUMBER. X/ 
/X END MICRO INFORMATION FRAME 

NUMBER. X/ 
/X ITEM QUANTITY ON HAND. X/ . 

SHIPPING WEIGHT OF EACH ITEM. 

/X SALES TABLE X/ 
/3€ SALES PROMOTION CODE X/ 
/X START DATE OF SALES PROMOTION. X/ 
/X TERMINATION DATE OF SALES X/ 
/X TERMS AND CONDITIONS OF SALES X/ 
/X FIRST SALES PROMOTION FRAME 

NUMBER. X/ 
/X LAST SALES PROMOTION FRAME 

NUMBER. X/ 
/X END SALES PROMOTION FRAME 

NUMBER. X/ 

/X WARRANTY TABLE X/ 
/X WARRANTY CODE X/ 
/X TEXTUAL' DETAILS OF WARRANTY. X/ 
/X INFORMATION NEEDED TO OBTAIN OR 

GENERATE WARRANTY. X/ 
/X FIRST WARRANTY INFORMATION FRAME 

NUMBER. X/ 
/X LAST WARRANTY INFORMATION FRAME 

NUMBER. X/ 

✓X PRICE TABLE X/ 
/X ITEM ID X/ 
/X CATALOGUE NUMBER OR ORDER 

NUMBER. X/ 
/X ITEM NORMAL PRICE IN DOLLARS 

AND CENTS. X/ 
/X QUANTITY OR NUMBER OF UNITS OF 

PURCHASE FOR WHICH THE PRICE IS 

VALID. X/ 
/X START DATE OF EFFECTIVE PRICE. X/ 
/X END DATE OF EFFECTIVE PRICE- x/ 
/X EFFECTIVE PRICE. X/ 

✓X COMPLEMENT ITEM TABLE X/ 
/X ITEM ID OF ONLY THOSE ITEMS WHICH 

HAVE COMPLEMENT ITEMS. X/ 
/X ITEM ID OF ITEMS WHICH SHOULD BE 

SUGGESTED FOR PURCHASE, IF THIS 

ITEM IS PURCHASED. X/ 
/X FIRST COMMERCIAL FRAME NUMBER 

OF SUGGESTED ITEM. X/ 
/X LAST COMMERCIAL FRAME NUMBER 

OF SUGGESTED ITEM. X/ 
/X END COMMERCIAL FRAME NUMBER 
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DCL 1 XCU, 

2 CID 

2 PASS 
2 CADD 
2 CLIM 

DCL 1 XDL, 

2 CID 
2 lODN 

2 DELD 

2 DELADD 



CHAR(12), 

CHARC8), 
CHARC7A), 
FIXED BINC31); 



CHARC12), 
CHARC12), 

CHARC8), 

CHAR(7«/ 



2 AVAILD CHARC8); 



DCL 1 



XIN, 
2 CID 
2 PASS 
2 lODN 



2 STATE 



CHAR(12), 
CHARC8), 
CHAR(12), 



CHARCS), 



SIZE 
COLOR 



CHAR(8), 
CHARC8), 



2 MODEL 



CHAR(20)^ 



2 QUAN FIXED BIN(31); 



DCL 1 



SR, 

2 STATE 
REPID 
STREP 
DFCL 
DBCL 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



CHAR(8), 
CHAR(5), 
CHARCIO), 
FIXED BIN(31), 
FIXED BIN(31), 
FIXED BINC31), 
CHARC2), 
CHARC2)^ 
CHARCAO), 
CHAR(8), 



DSL 
RLOC 
CLOC 
REPTXT 
NSTATE 
IVF FIXED BIN(31); 



OF SUGGESTED ITEM. X/ 

/X CUSTOMER TABLE X/ 
/K CUSTOMER ID, CREDIT CARD 

IDENTIFICATION NUMBER X/ 

/X PASSWORD • X/ 

/X MAILING ADDRESS OF CUSTOMER x/ 

/X CREDIT LIMIT OF CUSTOMER. x/ 

/X ITEM DELIVERY TABLE x/ 
/X CUSTOMER ID, X/ 
/X CATALOGUE NUMBER OR ORDER 

NUMBER, ^ 
/X DATE ON WHICH ITEM DELIVERED 

OR PROMISED DELIVERY. X/ 
/X ADDRESS WHERE ITEM TO BE DELIVERED 

OR LOCATION WHERE CUSTOMER TO 

PICK UP ITEM. ^ 
/X DATE ON WHICH ITEM WILL BE 

AVAILABLE IN STOCK. X/ 

/X PURCHASE INCOMPLETE TABLE X/ 
/X CUSTOMER ID, 3^/ 
/X PASSWORD X/ 
/X CATALOGUE NUMBER OR ORDER 

NUMBER OF ITEMS PURCHASED BY 

CUSTOMER. X 36/ 

/X STATE FROM WHICH CUSTOMER 

REQUESTED STATE INS (LAST ITEM) X/ 
/X ITEM SIZE, DATA OF ITEM PURCHASED. X/ 
/X ITEM COLOR, DATA OF ITEM 

PURCHASED. se/ 
/X ITEM MODEL, DATA OF ITEM 

PURCHASED. X/ 
/X QUANTITY OR UNITS OF ITEM 

PURCHASED. X/ 

/X STATE REPLY TABLE X/ 
/X STATE X/ 
/X A REPLY ID X/ 
/X STATE REPLY x/ 
/X FOREGROUND COLOR X/ 
/X BACK GROUND COLOR X/ 
/X TEXT LETTER SIZE DISPLAY CODE. X/ 
/X ROW LOCATION IN SCREEN X/ 
/X COLUMN LOCATION IN SCREEN X/ 
/X REPLY TEXT FOR SCREEN X/ 
/X NEXT STATE SAME AS INC0M5.STATE X/ 
/X VIDEO FRAME NUMBER FOR STATIC 
DISPLAY, ^ 



DCL 1 SC, 

2 REPID 
2 STREP 
2 NSCEN 



/X SCREEN TABLE X/ 
CHARCS), /X REPLY ID X/ 
CHARCIO), /X STATE REPLY X/ 
CHARCIO), /X NEXT STATE-REPLY SCREEN X/ 



SA9-83-009 

014&302 



FILEi QKSHOPl PLIOPT A SAN JOSE RESEARCH LABORATORY - VM/SP CMS (1.11) 



2 DFCL FIXED BINC31), 
2 DBCL FIXED BIN(31), 
2 DSL FIXED BINC31), 
2 RLOC CHARC2), 
2 CLOC CHARC2), 
2 REPTXT CHARC^O), 
2 NSTATE CHARCS); 



/X FOREGROUND COLOR X/ 
/X BACK GROUND COLOR DISPLAY CODE. X/ 
/X TEXT LETTER SIZE DISPLAY CODE, X/ 
/X ROW LOCATION IN SCREEN X/ 
/X COLUMN LOCATION IN SCREEN X/ 
/X REPLY TEXT FOR SCREEN X/ 
/X NEXT STATE SAME AS INC0M5.STATE X/ 



DCL 
DCL 
DCL 



DCL 



/X WORKING VARIABLE 
/X WORKING VARIABLE 
NON-MENU TOUPLES X/ 



X/ 
X/ 



€YC8,XC8) CHARCS) J 

XC20 CHARC20)j 

1 XMDClOO), /X ALL 

2 DTXS CHARC30), 

2 DNS CHARCS) / 

2 DIT CHARCS); 

1 XST, /X STATISTICS OF NON-MENU TOUPLES X/ 

2 COUNT BIN FIXED, /x COUNT OF SATISFYING TOUPLES X/ 

2 CDNS BIN FIXED/ /X COUNT OF NON-ZERO DNS X/ 

2 CDIT BIN FIXED; /X COUNT OF NON-ZERO DIT X/ 



DCL 1 XTDClOO), 

2 DFCL FIXED BINC31), 

2 DBCL FIXED BINC31), 

2 DSL FIXED BIN C 31), 
2 TTX CHARC74); 

DCL 1 XSRClOO) EXTERNAL, 

2 REPID CHARCS), 
2 STREP CHARCIO), 
2 DFCL FIXED BINC31), 
DBCL FIXED BINC31), 
DSL FIXED BINC31), 
RLOC CHARC2), 
CLOC CHARC2), 
REPTXT CHARC74), 
NSTATE CHARCS), 



2 
2 
2 
2 
2 
2 
2 



IVF FIXED BINC31); 



DCL 1 XSIClOO) EXTERNAL, 

2 IIT CHARCS), 
2 INM CHARCAO), 
2 IFC FIXED BINC31), 
2 ILC FIXED BINC31), 
2 lEC FIXED BINC31); 

DCL SPTXTCIO) CHARC80); 
DCL NSPL FIXED BIN; 
DCL L5PL FIXED BIN; 



/X DISPLAY TEXT 
✓X TEXT COLOR DISPLAY CODE. USED 

BY SCREEN GENERATOR PROGRAM. X/ 
/X BACK GROUND COLOR DISPLAY CODE. USED 
BY SCREEN GENERATOR PROGRAM. X/ 
/X TEXT LETTER SIZE DISPLAY CODE. X/ 
/X TEXT. 

/X SCREEN TEXT X/ 
/X A REPLY ID X/ 
/X STATE REPLY X/ 
/X FOREGROUND COLOR X/ 
/X BACK GROUND COLOR X/ 
/X TEXT LETTER SIZE DISPLAY CODE. X/ 
/X ROW LOCATION IN SCREEN X/ 
/X COLUMN LOCATION IN SCREEN X/ 
/X REPLY TEXT FOR SCREEN X/ 
/X NEXT STATE SAME AS INCDM5.STATE X/ 
/X VIDEO FRAME NUMBER FOR STATIC 
DISPLAY. 

/X SCREEN INDEX TEXT X/ 
/X ITEM ID, NON UNIQUE. X/ 
/X NAME OF ITEM. X/ 
/X FIRST COMMERCIAL FRAME NUMBER. X/ 
/X LAST COMMERCIAL FRAME NUMBER. X/ 
/X END COMMERCIAL FRAME NUMBER. X/ 

/X SPECIAL TEXT FOR SCREEN X/ 
/X NUMBER OF SPECIAL LINES X/ 
/X LENGTH OF SPECIAL LINES X/ 



DCL CH1C19) 



CHARCl) INITC'1S'2S»3S»^S/5S«6S 
•7»,'8S'9S»A«,»BS»C',*D», »E',»FS 
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•GS»H',»I»,»J»); 
DCL CIC.I,II,IX,IY,IZ,IXC,III) BIN FIXED; 

DCL FTXT CHARCV^); /X FIXED 74 CHAR STRING 

DCL DTL FIXED BIN; 



DCL TERMINAL 
DCL REPLYMDDE 
DCL DTYPE 
DCL REPLYFLD 
DCL DTYPEIXSV(20) 
DCL REPLYSVC20) 

DCL SVCHA20C20) 
DCL SVNSTATE(20) 
DCL SVCVC20) 
DCL SVBACKUPSCC20) 
DCL SVFIRSTMSC 



DCL 1 



CITEM, 
2 IIT 



2 
2 
2 
2 
2 
2 
2 



INM 
COLOR 
SIZE 
MODEL 
QUAN 
STREP 
lEP 



DCL 1 SVITMC25), 



CHAR(8)^ 
CHAR(40), 
CHARC8), 
CHARC8), 
CHAR(20), 
FIXED BINC31), 
CHARCIO), 
FIXED BINC31); 
FIXED BIN; 
CHAR(8); 



2 IIT 
2 INM 
2 COLOR 
2 SIZE 
2 MODEL 
2 QUAN 
2 STREP 
2 lEP 
DCL NUITEM 
DCL SVIXTM 
DCL 1 SUGITMC50), 

2 REPID CHARC5), 
PURIIT CHARCIO), 
DFCL FIXED BINC31), 
DBCL FIXED BINCSl), 
DSL FIXED BINCSl), 
RLOC 
CLOC 
REPTXT 
NSTATE 
IVF 



/X DISPLAY TEXT LINE X/ 
/X TYPE OF TERMAINAL X/ 
/X USER REPLY MODE X/ 
/X DISPLAY STATE X/ 
/X REPLY FIELD X/ 
/X SAVE LABEL INDEX OF DTYPE X/ 
/X SAVES STATE AND REPLY OF 

PATH TRAVERSED X/ 
/X SAVES 20 CHARACTERS STRING X/ 
/X SAVES NEXT STATE X/ 
FIXED BIN(31); /x SAVES NEXT STATE X/ 
CHAR(20); /X SAVES BACKUP SCREEN X/ 
CKAR(20); /X SAVES BACKUP SCREEN X/ 
/X CURRENT ITEM STRUCTURE X/ 
CHAR(8), 
CHARC40), 
CHARC8), 
CHAR(8), 
CHARC20), 
FIXED BIN(31), 
CHARCIO), 
FIXED BINC31); 

/X SAVES SELECTED ITEM STRUCTURE x/ 



CHARC7); 

CHARC8); 

CHARC8); 

CHARC32); 

BIN FIXED; 

CHARC20); 

CHARC20); 
CHARC8); 



2 
2 
2 
2 
2 
2 
2 
2 
2 



CHARC2), 
CHARC2), 
CHARC74), 
CHARC8), 
FIXED BIN(31); 
DCL NSUGITM FIXED BIN; 
DCL SUGITMJIT BITCl) INITC'O'B); 

DCL SUGITMHDRJIT BITCl) INITC'O'B); 
DCL NEWSUGITM^BIT BITCl) INITC»1*B); 
DCL PURSUGITMJIT BITCl) INITC'O'B); 



DCL STACK 



BIN FIXED; 



/X NUMBER OF ITEMS PURCHASED X/ 
/X SAVE ITEM NAME FROM INDEX X/ 
/X SUGGESTED ITEMS X/ 
/X A REPLY ID X/ 
/X PURCHASED IIT X/ 
/X FOREGROUND COLOR X/ 
/X BACK GROUND COLOR X/ 
/X TEXT LETTER SIZE DISPLAY CODE. X/ 
/X ROW LOCATION IN SCREEN X/ 
/X COLUMN LOCATION IN SCREEN X/ 
/X REPLY TEXT FOR SCREEN X/ 
/X NEXT STATE X/ 
/X VIDEO FRAME NUMBER FOR STATIC 
/X NUMBER OF SUGGESTED ITEMS X/ 

/X SUGGESTED ITEM BEING 

PROCESSED X/ 
/X HEADER FOR SU6ITM x/ 
/X NEW SUGGESTED ITEM X/ 
/X PURCHASE OF SUGGESTED 
ITEM BIT X/ 
/X STATE STACK X/ 
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DCL STACKSIZ 
DCL SCSTACK 
DCL SVSCSTACK 
DCL SVSCREEN 
DCL YC12 
DCL CHl^ 
DCL CH9 
DCL CHS 
DCL CH2 
DCL CXL,XL1) 

DCL SLOC 

DCL DW 

DCL SHDL 

DCL SDL 

DCL NSL 

DCL NHL 

DCL NBL 

DCL SDLXSR 



BIN FIXED; 
BIN FIXED; 
BIN FIXED; 
CHARCIO); 
CHARCIZ); 
CHAR(14); 
CHARC9); 
CHARCS); 
CHAR(2); 
BIN FIXEDC31); 



/X STACK SIZE ?f/ 
/X SCREEN STACK X/ 
/X SAVE SCREEN STACK X/ 
/X SAVED SCREEN NAME X/ 



FIXED BIN; 



FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 



BIN; 
BIN; 
BIN; 
BIN; 
BIN; 
BIN; 
BIN; 



DCL NXSRL 



DCL DL 

DCL DCOL 

DCL BKCOL 

DCL DFON 

DCL DRLOC 

DCL DCLOC 

DCL TXT 

DCL LI 

DCL MSCL 

DCL MSCI 

DCL SPSCBOT 

DCL CHA5(26) 



FIXED BIN; 



FIXED BIN; 
FIXED BINC31); 
FIXED BIN(31); 
CHARCS); 
CHARC2); 
CHAR(2); 
CHAR(74); 
FIXED BIN; 
FIXED BIN; 
FIXED BIN; 
CHARC?^); 



/X STARTING LOCATION OF DISPLAY 

POSITION IN A LINEAR BUFFER X/ 
/X DISPLAY WIDTH X/ 
/X STARTING HEADER LINE X/ 
/X STARTING ITEM LINE X/ 
/X NUMBER OF SCREEN ITEMS X/ 
/X NUMBER OF SCREEN HEADER X/ 
/X NUMBER OF BLANK LINES X/ 
/X STARTING ITEM LINE IN XSR 
WHEN SCREEN DATA IN 
MULTIPLE STRUCTURES X/ 
/X NUMBER OF ITEM LINES IN XSR 
WHEN SCREEN DATA IN 
MULTIPLE STRUCTURES X/ 
/X DISPLAY LENGTH x/ 
/X DISPLAY COLOR X/ 
/X DISPLAY BACK GROUND COLOR X/ 
/X DISPLAY FONT TYPE X/ 
/X DISPLAY ROW LOCATION X/ 
/X DISPLAY COLUMN LOCATION X/ 
/X DISPLAY TEXT X/ 
/X LABEL INDEX X/ 
/X MAX LINES ON ONE SCREEN X/ 
MAX ITEMS ON ONE SCREEN X/ 
✓X SPECIAL SCREEN BOTTOM X/ 



CHARCS) INITC'Cl) 
■C5) S'C6) 
UO) S'Cll) 
U15) S«C16) 
•C20) S'C21) 
'C2S) •,»C26) 



•C2) 
»(7) 
•C12) 
U17) 
,U22) 

•); 



S«C3) 

','(8) 

•,•(13) 

■,•(18) 

',•(23) 



•C4) 

•(9) 

•Cl<i) 

•C19) 

•(24) 



DCL BRANDIX.BIT 
DCL XSR.BIT 
DCL XTD BIT 
DCL XSI^BIT 
DCL NODATAJIT 
DCL MORESC_BIT 
DCL SPTXT^BIT 
DCL STSCBOT_BIT 
DCL SPSCBOT BIT 
DCL WNGRPLYJIT 
DCL ITEMWSOFT_BIT 



BITCl) 
BITCl) 
BITCl) 
BITCl) 
BITCl) 
BITCl) 
BITCl) 
BITCl) 
BITCl) 
BITCl) 
BITCl) 



INITC^O'B); 
INITC'O'B); 
INITC'O^B); 
INITC'O'B); 
INITC'O'B); 
INITC^O'B); 
INITC'O'B); 
INITCU'B); 
INITC'O'B); 
INITC'O'B); 
INITC'l'B); 



/X MENU ITEM AND SOFTKEY 
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DCL XSRHM BIT 
DCL SVINHORESC 
DCL INNORESC 



DCL 1 



SNLCZl), 
2 STATEN 



2 STATEL 



DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 



PCREP CHAR(32); 

PCREPTR POINTER; 

PCKPRP2 CHARCl); 

ERTBLC20) CHAR(40); /x 

ERLN FIXED BIN; /X 

ERTYP CHAR(IO); /X 

AMOUNT FIXED BIN(31); 

lAM FIXED BINC31); 

TAX FIXED BIN(31); 

TOTAL FIXED BIN(51); 

OVERCHG FIXED BINC31); 

QADJ CHAR(3); /X 
1 S0FTKEYTAB(4), /X 



^ IN SAME SCREEN X/ 

PJp?;^?2^UiS)5^' XSR HEADER X/ 

^J$iS SJt* INITCO); /X SAVE INMORESC X/ 
FIXED BIN INITCO); /X TEMP VALUE OF NUMBER 
^^.^^ OF MORE SCREENS x/ 

'^^ STATE NAME-LABELS X/ 
CHARCS) INITCFISCOOOOS »REQOO0O0», »DEPT000O». 
GNINXOOOS'INDEXO0O«,»ITEM0OOO', ' 
■SEINXOOOS 'INSOOOOOS •WARROOOOS 
'SALEOOOOS 'COLOR0OO», »SIZE00O0», 
'MODELOOO*, »BQOO0O0O', •BUYOOOOOS 
'PUROOOOOS •WHCOOOOOS 'DEMOOOOOS 
•ITEMODOOS 'MOPTDOOOS 'DNIOOOOO'), 
LABEL INIT(FISC00O0,REQO000O,DEPTOO00, 
GNINXO0O,INDEX0O0,ITEMO0O0, 
SEINX00O,INSO0000,WARR00OO, 
5ALE000O,COLOR000,SIZE0OO0/ 
MODEL000,BQ000000,BUY00000, 
PUR0DO0O,WHC00OOO,DEMO00O0, 
ITEM0D0O,MOPTDO00;-DNI0O000); 



PC REPLY X/ 
POINTER FOR PC REPLY X/ 

ERROR MESSAGES X/ 
NUMBER OF LINES OF ERROR MSG X/ 
ERROR TYPE X/ 
/X AMOUNT OF PURCHASE X/ 
/X AMOUNT OF FOR AN ITEM X/ 
/X AMOUNT OF ALL PURCHASES X/ 
/X TOTAL OF ALL PURCHASES X/ 
PURCHASE OVER CREDIT X/ 
QUANTITY ADJUST X/ 
SOFT KEY TABLE X/ 



2 SKEY CHARCl), 

2 RLOC CHAR(2), 

2 CLOC CHARC2), 

2 SKNAME CHAR(20), 

2 NSTATE CHARCS); 

BITCl) INITC'O'B); 

iJI^i^vili^"'^^'^'^^' TOUCHED SOFTKEY X/ 
BIN FIXED; /X NUMBER OF SOFT KEYS X/ 

/X FIRST COMMERCIAL OF DEMO ITEM X/ 
/X LAST COMMERCIAL OF DEMO ITEM X/ 
/X SAVE DEMO ITEM NAME X/ 
/X SALE DISCOUNT PER CENT x/ 



DCL SOFTKEY^BIT 
DCL TSOFTKEY BIT 
DCL NSOFTKEY 
DCL DEMOIFC 
DCL DEMOILC 
DCL DEMOITM 
DCL SPCT 



FIXED BINC31); 
FIXED BINC51); 

CHARCS); 
FIXED BINC31); 



DCL ERRORSTJIT BITci) INITC 'S'sSr ;i ERRORST BIT 



/|6X3€XXXX3fXXXXXXXKXXKXXXK)e5eXXXXXXKXXX3(X 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXX^ 
STACKSIZ = 20; /X STACK SIZE K/ 

REPLYFLd"=*???^^^^^' POINTER TO PC-VIDEO INTERFACE X/ 
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TERMINAL = »IBM3279»; 

REPLYMODE = '79KB •; /X USER REPLY BY 3279 KEY BOARD X/ 
Rip|:YFL"= ../n"=^5'?"" ^"^^S ON ONE SCREEN X/ 

lo HHir^r^EpL^^ES'^/ioiE^'S l/^ ?J5I"'- COMMUNICATION WITH PC X/ 
II = II + 1; 
DISPLAY( 'fa/OK/a*'); 
piSPL AY( » «/++/*• ) REPLY( REPLYFLD) ; 

iL^''^'*'-^^'-^ 'Ol^' « II > 10) THEN GOTO DONE; 
END; /X OF INITIAL COMM. WITH PC X/ 

fb^fcgJf[:!;i^Y^'''RO^RA" HAS STARTED'), 

IF TERMINAL = 'IBHPC • THEN PCREPTR = ADDRf PCRFP-J • 

IF REPLYMODE = 'PCKP' THEN PCKPRP2 = • A»DI?CPCREP), 

DTL =0; ' 

CALL CONNECT (STMT, RCODE); 

IF TERMINAL -= UBMPC • THEN CALL SHOWVI; 

/X INITIALIZE DISCO-VISION PLAYER X/ 

REPLYSV = »»; 
SVBACKUPSC = 
SVFIRSTMSC = »»; 
SVCHA20 = 
STACK =1; 
SCSTACK = 1; 
FISCOOOO: 

unn.^. ''^ STATE FI5C 3e/ 

l!S»'ilT%'?;?i; °' 

CALL DSPLAY; /X DISPLAY STATE FISC 

FISCOOOR, ''^'''■^ R^PLYFLD X/ 

^cM"?TE^ffFt^r^°;ii1^sToS•I^"x^" 

DO; 

NODATA_BIT = 'O'B; WNCRPLY BIT = 'I'B; 

IFJERMINAL = 'IBMPC ' THEN /X FETCH CUSTOMER PASSWORD X/ 

5JH!-^YC'«a/WR0NG CUSTOMER ID. ENTER AGAIN/a«'); 
DISPLAYC '«/++/#•) REPLY(REPLYFLD); ' 
END; 

^kn? TERMINAL = 'IBM3279' | TERMINAL = '1BM3277' THEN 

DO/ 

STSCBOT^BIT = »0»B; SPSCBOT BIT = »1»B; 
SPSCBOT^=^^ WRONG CUSTOMER ID . ENTER AGAIN 

END; ' 
GOTO FISCOOOR; 
END; 

NODATA_BIT ^ »1»B; WNGRPLY_BIT = »0»B; 
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IF TERMINAL = 'IBMPC » THEN /X FETCH CUSTOMER PASSWORD K/ 
DO; 

DISPLAYC » W/ ENTER PASSWORD/at » ) ; 
DISPLAYS REPLYCREPLYFLD)! 

ELSE^IF TERMINAL = •IBM3279' I TERMINAL = '""3277; THEN 
DOi SPSCBOT e « ENTER PASSWORD SPSCBOT.BIT = U'B; 
STSCBOT_BIT = »0»B; CALL DSPLAY; END; 

IF SUBSTRCREPLYFLD,1,2) = 'HX' THEN GOTO DONE; 

DO WHILECII < 5 & REPLYFLD -= YC8); ^..c-mMtro 

/X INCORRECT PASSWORD FROM CUSTOMER ^ 

IF terminal's UBMPC • THEN /X ASK CUSTOMER PASSWORD AGAIN X/ 
DO; 

DISPLAYC »»/WRONG PASSWORD. ENTER AGAIN/3«'); 
DISPLAYC REPLYCREPLYFLD); 

ELSE^IF TERMINAL = •IBM3279« I TERMINAL = »IBM3277» THEN 

^°STSCBOT BIT = »0«B; SPSCBOT.BIT - 'I'B; WNGRPLY_BIT = 'I'B; 

SPSCBOT" = • WRONG PASSWORD. ENTER AGAIN »; 

CALL DSPLAY; 

END; 
END; 

IF II >= 5 THEN GOTO DONE; 

LI = 1; /X STATE INDEX X/ 

/X INITIALIZE THE SAVING OF ITEMS REQUESTED X/ 

SVITm"iIT°= ••; SVITM.INM = '»; SVITM. COLOR =«';, 
SVITM. SIZE = "; SVITM.MODEL = »«; SVITM. STREP = »'; 
SVITM.QUAN = 0; SVITM. lEP =0; . ^ 

SU6ITM.REPID = »»; SUGITM.PURIIT = •»; SUGITM.DFCL = 0; 
SUGITM.DBCL = 0; SUGITM.DSL = 0; SUGITM.RLOC = '•; 
SUGITH.CLOC - "; SUGITM.REPTXT = »«; SUGITM, NSTATE = »»; 
SUGITM.IVF = 0; PURSUGITM_BIT = »0»B; 
SUGITmIbIT = 'O'B; SUGITMHDRJIT = »0«B; NSUGITM = 0; 
CALL PURINC; 

PURINC s PROC; 

/X THIS PROCEDURE CHECKS THE IC0M5 TABLE TO DETERMINE 

IF THIS CUSTOMER INTERUPTED PURCHASE OF AN ITEM ^^^^ 
FOR INSPECTION. IF SO, THEN SYSTEM FETCHES CUSTOMER STATE, 
FILLS THE SVITM STRUCTURE 

AND BRANCHES TO THE LAST STATE GIVEN BY INC0M5. STATE; 
IF NO ENTRY OF CUSTOMER FOUND IN IC0M5XID THEN 
CONTINUE TO REQOOOOO STATE. X/ 

END PURINC; 
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REQOOOOO: 

/X REQUEST STATE 3C/ 
NODATA_BIT = '0»B; WNGRPLY BIT = »0'B; 
SPSCBOT = »>; SPSCBOT.BIT = 'O^B; 
SPTXT_BIT = 'CB; ITEMWSOFT BIT = »1«B; 
NBL = 0; 

DFCL = 1; DBCL = 5; 
DTYPEIXSV = 2; 
SCREEN = »»; 



STACK = 2; 
SCSTACK = 2; 
REPLYSVCSCSTACK) = 
REPLYSV(SCSTACK-l) 

SVBACKUPSCC SCSTACK) = ' REQOOOOOHD' ; 
SVBACKUPSCCSCSTACK-1) = » FISCOOOOOl » ; 



•REQOOOOOHD'; 
•FISCOOOOOl'; 



DTYPE = 

STSCBOT 

LI = 2; 

GOTO LA; 

DEPTOODO 

GNINXOOO 

INDEXOOO 

ITEMOOOO 

SEINXOOO 

INSOOOOO 

WARROOOO 

SALEOOOO 

COLOROOO 

SIZEOOOO 

MODELOOO 

BQOOOOOO 

BUYOOOOO 

PUROOOOO 

ITEMODOO 

NHCOOOOO 

DEMOOOOO 

MOPTDOOO 



LAi 



•REQOOOOO'; 
BIT = U»B; 
/X STATE INDEX X/ 



DTYPE 




'DEPTOOOO*j 


; GOTO 


LAj 


; /X 


STATE 


DEPT X/ 




DTYPE 




■GNINXOOOV 


? GOTO 


LA, 


f /x 


STATE 


GENERATE INDEX X/ 


DTYPE 




"INDEXOOO», 


; GOTO 


LA, 


f /X 


STATE 


INDEX X/ 




DTYPE 




'ITEMOODO'j 


; GOTO 


LA, 


; /X 


STATE 


ITEM X/ 




DTYPE 




»SEINXOOO»j 


; GOTO 


LA, 


; /X 


STATE 


SECOND INDEX 


X/ 


DTYPE 




•INSOOOOO'j 


f GOTO 


LA, 


f /X 


STATE 


INSPECT X/ 




DTYPE 




■WARROOOO'; 


; GOTO 


LA, 


! /X 


STATE 


WARRANTY X/ 




DTYPE 




'SALEOOOO'j 


? GOTO 


LA, 


f /X 


STATE 


PRICE X/ 




DTYPE 




'COLOROOO', 


r GOTO 


LA, 


; /X 


STATE 


COLOR X/ 




DTYPE 




•SIZEOOOO'j 


; GOTO 


LA, 


? /X 


STATE 


SIZE X/ 




DTYPE 




'MODELOOO' J 


? GOTO 


LA, 


; /X 


STATE 


MODEL X/ 




DTYPE 




'BQOOOODO'j 


r GOTO 


LA, 


; /X 


STATE 


BUY QUANTITY 


X/ 


DTYPE 




'BUYOOOOO', 


J GOTO 


LA, 


; /X 


STATE 


BUY X/ 




DTYPE 




'PUROOOOO'j 


f GOTO 


LA, 


\ /X 


STATE 


PURCHASE X/ 




DTYPE 




•ITEMODOO'j 


f GOTO 


LA, 


? /X 


STATE 


DEMO ITEM X/ 




DTYPE 




•WHCOOOOO'j 


; GOTO 


LA, 


; /X 


STATE 


COND. FOR WARRANTY X/ 


DTYPE 




•DEMOOOOO' J 


; GOTO 


LA, 


; /X 


STATE 


DEMO X/ 




DTYPE 




'MOPTDOOO'; 


; GOTO 


LA, 


? /X 


STATE 


MORE OPTIONS 


FOR 


DTYPE 










FOR DEMO ITEM X/ 




'DNIOOOOO'; 




/X 


STATE 


NO ITEM X/ 





AND VIDEO X/ 



CALL DSPLAY; /X DISPLAY SCREEN 
CALL RPLTRANS; 
CALL REPGO; 
GOTO SNL.STATEL(LI); 
GOTO DONE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/X SUBROUTINES X/ 

/xxxxxxxxxxxxxxx^ 

/X CONNECT: ENTRY ( T, RCODE); CONNECT~TO~SQL/DS X/ 

/X COMMITi ENTRY ( T, RCODE); COMMIT ALL WORK X/ 

/X DISTXT. ENTRY (XC8, XTD,XL,T, RCODE); GET DISPLAY TEXT x/ 



O/^y - O -r " V ✓ 



7fe 
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RPLTXT. ENTRY (XC|, XSR,XL,T, RCODE); GET REPLY OPTIONS TEXT X/ 

DSPIAY. fRO^Jju^gs „„ „TYPE, RETRIEVES TEXT DATA USIHG DTYPE AND 
BACKGROUND COLOR, STORE IN BKCOL. 

rH« jkmwjvthat t„e^ 

PARAMERTER IS HOT BEING USED. *^ 

??'sUBSTR(DTYPe"%)'-°'BUYOO. them /X DO NOT MODIFY XSR HDR ^ 
I XSRHM_BIT = 'O'B; 

IF -MODATA BIT THEN INITIALIZE THE DATA PARAMETERS */ 
DO? ~ 

?DLxlR-=";%isRr= O; SHDL = 0; SDL = 0_; NHL = 0, 
NSPL = 0; LSPL = NSOFTKEY = 0; NBL - U, 

|pSorBIT%'"o'B; SPTXTJIT - -O'B; SOFTKEY^BIT = 'O-B; 
ITEMWSOFT^BIT = *1'B; 

''^1sll^s^?^^'i^iTlJcmp^SclTACK).,l.5) = -index, then 

/3t SAVE ITEM STATE X/ 

°°TC «iim«;TRfRPPiYFLD,l,l) = 'B' THEN /X ITEM ARRIVED FORM 
IF SUBSTRCREPLTV-LlJ,i,i-» o m ^^^^^p p^Q„ pg^g X/ 

DO; /X SET SVNSTATE K/ 

II TER?«S''=''llH3277''l'TERMiNAL = ;IBM3E79« THEN 
SET SVNSTATE FROM REP LYSVC STACK) 

SVNSTATECSTACK) = REP LYSVC STACK); 
PI «?F IF TERMINAL = 'IBMPC ' THEN 
^"■^/K SET SVNSTATE FROM REPLYSV(STACK-l) X/ 

SVNSTATECSTACK) = REPLYSVCII); 

SvixTM = SVNSTATECSTACK); 
END; /X OF SAVING ITEM STATE 
IF DTYPE ' 'FISCOOOO' I DTYPE = 'REQOOOOO' THEN 

ELSeSf SUBSTRC DTYPE, 1.5) = 'DEMOO' f^^^^^^. 

SUBSTRCSVNSTATECSTACK-1),1.6) = 'ITEMOD' THEN 
XC8 = DEMOITM; 
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ELSE IF (SUBSTR(DTYPE,1,5) = 'ITEMO' I 
CSUBSTR(DTYPE,1,5) = 'DEMOO' & 
SVNSTATE(STACK) = 'DEMOOOOO' S 
SUBSTR(SmTATE(STACK-l),l,6) 'ITEMOD')) THEN 

XCo = SVIXTM; 
-ELSE XC8 = SVNSTATECSTACK); 

IF -NODATA_BIT & DTYPE = 'INDEXDOO" & BRANDIX BIT THEN 
/K BRAND INDEX X/ 
SUBSTRCXC8,6,1) = »B'; 
IF DTYPE = 'FISCOODO* 

THEN DO; /x SCREEN FOR CUSTOMERID X/ 

IF TERMINAL = "IBMPC • THEN /K WAIT FOR CUSTOMERID X/ 
DO; DISPLAYS «/ENTER CUSTOMER ID./3t»); 
DISPLAYC '«/++/#») REPLY(REPLYFLD); END; 
ELSE IF -NODATAJIT THEN /5e NON IBMPC AND DATA NEEDED X/ 
DO; /X FETCH DATA USING RPLTXT, SET DFON, AND PREPROCESSING 
BEFORE DISPLAY REQUEST EXCEPT FOR IBMPC X/ 
XSR.DFCL = 0; XSR.DBCL = 0; XSR.DSL = 0; XSR.REPID = »»; 
XSR.RLOC = «•; XSR.CLOC = XSR.IVF = 0; 

XSR. STREP = "; XSR.REPTXT = • • ; XSR.NSTATE = »•; 
XSR„BIT = U»B; XTD^BIT = »0'B; XSI BIT = »D»B; 
CALL RPLTXTCXC8,XSR,XL,STMT,RC0DE); 
SHDL = 1; SDL = 0; NHL = 3; 
DL = XL; 

II = XSR.RLOCCSHDL); III = XSR.CLOCCSHDL) + 15; 
SLOC = (II - 1)X80 + III; DW = 1; 

IF XSR.DSL(SHDL) = 1 THEN DFON = 'ITALIC; /x ITALIC FONT X/ 
IF XSR.DSLCSHDL) = 0 THEN DFON = '0»; /x STANDARD FONT X/ 
IF -WH6RPLY_BIT THEN SPSCBOT = » ENTER CUSTOMER ID 
SPSCBOT^BIT = U'B; STSCBOT„BIT = »0'B? 

END; /X OF DATA ACQUIRING BY RPLTXT AND PREPROCESSING X/ 
STACK = MODCSTACK,STACKSIZ) + 1; 
SCSTACK = MOD(SCSTACK,STACKSIZ) + 1; 
REPLYSVCSCSTACK) = « FISCOOOOOl » ; 
REP L YSV C SCSTACK-1 )= •FISCOOOOOl*; 
SVBACKUPSCCSCSTACK) = REPLYSVCSCSTACK); 
SVBACKUPSCCSCSTACK-l) = REPLYSVCSCSTACK); 
SVNSTATECSTACK) = 'REQOOOOO*; 
SVCV(STACK) = XSR.IVFCSHDL); 
END; /X OF FISCOOOO X/ 

ELSE IF -NODATA^BIT & C SUBSTRC DTYPE, 1,5) = » ITEMO » | 

SUBSTRCDTYPE,1,5) = »WARRO» | 
SUBSTRCDTYPE,1,5) = 'SALEO' | 
SUBSTRC DTYPE, 1,5) = » DEMOO') THEN 
/X FETCH DATA USING RPLTXT, DISTXT, ITEMINF AND 
IPRICE AND SET DFONT X/ 
DO; /X FETCH DATA IF REQUEST NOT MORE X/ 

XTD.DFCL = 0; XTD.DBCL = 0; XTD.DSL = 0; XTD.TTX = 
XTD_BIT = "I'B; 

IF -CSUBSTRCDTYPE,1,5) = 'WARRO' I 

SUBSTRCDTYPE,1,5) = 'SALEO') THEN /X GET ITEM TEXT AND 
ITEM INFORMATION x/ 

DO; 
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PTTFM IIT = «»; CITEM.INM = CITEH. COLOR = 
CITEM'.SIZE = •M CITEM. MODEL = CITEM.QUAN = 0; 
CITEM. STREP = CITEH.IEP = 0; 
CITEM.IIT = XC8; 

II = 0; 

IF^^GiTm^BIt'tHEN 'Vx DELETE CITEM.IIT FROM SUGITM TABLE */ 
DO WHILE III < NSUGITM+1); 

IF SUGITM.MSTATECII) = CITEM.IIT THEN /X SUGGE|TED JTEH 

°°D0 III = II TO NSUGITM; ELIMINATE CITEM.IIT */ 
SUGITMCIII) = SU6ITMCIII+l)f 

ii^nsuSTa^^irTx^EsrairLo^p ^ 

?5S?''5K%PllSrii5GHuGGESTED ITEM ^ 
END; >X OF SEARCHING SUGITM TABLE X/ 

CALL DISTXT(XC8,)CTD,XL,STMT,RC0DE); /X GET ITEM TEXT 

SHDL = 1; SDL = 2; NHL = 1; 

DL = XL; ' 

XX 2i XXX ^ Xf 

IF^^B DSLciHDL)^" t THEN DFON =^ /X ITALIC FONT X/ 

IF XTD'.dIlcIhDL) = 0 THEN DFDN = '0'; STANDARD FONT X/ 

XI IIT = •'; XI. lie = "; XI.IODN = ••; XI.ICIT = ••; 
XI.INM = ••; XI.IVF = 0; XI.IFM = 0; XI.ILH = 0; 

ckriTEMINF(XC8!:XirSTMT^R60DE)I % GET ITEM INFORMATION X/ 
FND- /K OF FETCHING ITEM TEXT & INFORMATION X/ 
ELSE IF s5bSTRCDTYPE,1.5) = 'WARRO- THEN /X GET^WARRENTY 

"°XTD TTXCl) = • WARRANTY FOR '; /X FIRST LINE FOR WARRANTY K/ 
XTD.TTXCZ) = XI.INM; /X ITEM NAME X/ 

CALL WARRTXT(CITEM,XTD,XL?STMT,RCODE); /X GET WARR TEXT X/ 
DL = XL; 

II = 2; III = 1; 

Ihd5 %"of"fEtSinS ilARRANTY TeJcT & INFORMATION X/ 
/X GET SALE INFORMATION X/ 
CALL SALETXTCCITEM,XS,XL,STMT,RCODE); /X GET SALE TEXT X/ 
fF^JcsTllfJi) /^Sf ^*^^THirsJcr= 90; /X 10. DISCOUNT 



ON PRICE X/ 
ON PRICE 

IF SUBSTRCDTYPE,X,5) = 'SALEO' THEN ADJUST DL X/ 



Pi-iP TF Y«; T<5Pfl^ = 'S2 ■ THEN SPCT = 95; 5% 

ELSE IF X5.ISPCXJ DISCOUNT ON PRICE x/ 
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DO; 

DL = XL; 

II = 2; III = 1; 

SLOC = (II - 1)X80 + III; DW = 1; 
END; /X OF ADJUSTING DL FOR SALEO X/ 

/X END OF FETCHING SALE INFORMATION 3t/ 

IH5oJSJSI^''^'l'5^ = 'ITEMO' & SUBSTR(XC8,1,4) -= 'DEMO' & 
SUBSTR(DTYPE,1,5) -= 'WARRO' 

THEN 

/X GET ITEM PRICE x/ 

DO; 

^I'lll = !!' XP-IODN = XP.IRP = 0; XP.IPQ = 0; 

XP.PSD = XP.PED = XP.IEP = 0; 

^6k'-.£n'^^^E^^^^'^P'STMT,RC0DE); /K GET ITEM PRICE X/ 

Tc^*iM«Tn?£4iE^?^9I' ADJUST FOR SALE DISCOUNT 36/ 

IF SUBSTR(DTYPE,1,5) »SALEO' THEN 
DO; /X DISPLAY PRICE AS SPECIAL TEXT X/ 

SPTXT_BIT = U»B; 

NSPL = N5PL + 1; LSPL = 80; 

CHl^i = XP.IEP; 

SPTXT(NSPL) = " THE PRICE OF EACH UNIT IS • 

I |SUBSTR(CHl^i,6,5) I | • . ' I I SUBSTRCCHl^, 11,2) ; 
END; /X OF PRICE AS SPECIAL TEXT 36/ 
END; /X OF GETTING ITEM PRICE X/ 

XSR.DFCL = 0; XSR.DBCL = 0; XSR.DSL = 0; XSR.REPID = ••; 
XSR.RLOC = ••; XSR.CLOC = '»; XSR.IVF =0; 
$SR. STREP = »'; XSR.REPTXT = •»; XSR.NSTATE = «•; 
XSR^BIT - *1'B; 

IF SUBSTR(SVIXTM,1,<}) -= 'DEMO' THEN XC8 = DTYPE; 

CALL RPLTXT(XC8,XSR,XL,STMT,RC0DE); /X GET ITEM OPTIONS K/ 

SDLXSR = 1; NXSRL = XL - SDLXSR + 1; 

IF SUBSTRCDTYPE,1,5) = 'WARRO* | 

jjjj SUBSTR( DTYPE, 1,5) = 'SALEO' THEN /X SET FONT FROM XSR X/ 

IF XSR.DSL(l) = 1 THEN DFON = 'ITALIC; /X ITALIC FONT K/ 
IF XSR. DSL (1) = 0 THEN DFON = '0'; /X STANDARD FONT X/ 
DO II = 1 TO DL; /x MOVE COLOR AND FONT INF TO XTD X/ 

i[?S:S^ftJf;^%?l'D§[ftSr' ^'^'^'^''''^ - XSR.DBCL(l); 
END; /K OF II LOOP 36/ 
IF SUBSTR(DTYPE,1,5) = »SALEO' THEN /36 TRANSFER DATA 

FROM XS AND XSR TO XTD 36/ 

DO; 

IF XS.SSDCl) = • 0' THEN /X ITEM NOT ON SALE 36/ 

DO; 

DO II = 1 TO DL; /36 MOVE XS.STXT TO TTX 36/ 

XTD.TTXCII) = XS.STXT(II); 

END; /36 OF II LOOP x/ 
CH14 - XP.IEP; 

XTDjTTX(DL+l) = • THE CURRENT PRICE OF EACH UNIT IS » 

I SUBSTRCCH14,6,.S) | | • . • I I SUBSTRCCHl^, 11 , 2) ; 
SHDL = 0; SDL = 1; NHL = 0; DL = DL + 1; 
SDLXSR = 6; NXSRL = XL - SDLXSR +1; 
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XTD DFCL(DL) = XSR.DFCLCl); XTD.DBCL(DL) = XSR.DBCLCl); 
XTD DSL(DL) = XSR.DSLCl); 
EnS; /"of item not on SALE ^ 
ELSE /X ITEM ON SALE X/ 

"°XSR REPTXTC2) = 'SALE STARTED OH MlXS.SSDCnll 

ENDS MlXS-SEDCl)? 

CH14 = XP.IEPj ^ Tc 1 

XSR.REPTXTC3) = ^SALE PRICE IS 

I |SUBSTR(CHl'»»6,5)l I'.'llSUBSTRCCHlti/ii^^^^ 

SHDL = 1; SDL - 6; NHL = 5; DL - HXSRL, 

ENDT /X of item on SALE ^ 
END; /X OF HANDLING SALEO */ 

IF DTYPE = 'COLOROOO' 1 DTYPE = 'SiZEOOOD' | 
DTYPE = -MODELOOO* THEN ^ 

/X FETCH DATA USING ITEMCSM X/ 



DO; 



J|fL"!?JS"i!ch?!^%,XSR,XL,STM^ 
IF RCODE < 0 THEN /x ITEM OUT OF STOCK X/ 

°°ERTBL = ERLM = 2f ERTYP = 'ERRORNOSTK' ; 
ERTBLCl) = XSR.REPTXT(XL); 
ERTBL(2) = • PLEASE BACKUP.',' 
CALL ERPACf 
CALL RPLTRAMS; 

°°iF MSUGITH < I THEN /X NO SUGGESTED ITEM X/ 

°°FRTBL = "i ERLN = 2; ERTYP = 'ERRORNOSUG' ; 
IrTBUD = ' NO SUGGESTED ITEMS.'; 
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ERTBLCZ) = • PLEASE BACKUP. »; 
CALL ERPAC; 
CALL RPLTRANS; 
RETURN; 

END; /K OF NO SUGGESTED ITEMS HANDLING X/ 
ELSE DO; TRANSFER SUGGESTED ITEMS TO XSR K/ 

XL = NSUGITM + Ij 
DO II = 1 TO NSUGITM + 1; 
XSRCII) = SUGITM(II); 

SUBSTR(XSR.STREP(II),1,8) = SUGITM. NSTATECII); 
END; /X OF II LOOP X/ 
END; /X OF ATLEAST ONE SUGGESTED ITEM X/ 
END; OF FILLING XSR FROM SUGITM TABLE X/ 

ELSE CALL RPLTXTCXC8 ,XSR,XL ,STMT, RCODE) ; 

SHDL = 1; SDL = 2; NHL = 1; NXSRL = XL - NHL; 
SDLXSR = SDL; DL = XL; 



IF SUBSTRCDTYPE,1,5) = «INDEX« & NXSRL < 1 THEN 
/K SELECTED ITEM NOT IMPLEMENTED X/ 

DO; 

ERTBL = »•; ERLN = 3; ERTYP = • ERRORNOTIM' ; 
ERTBLCI) = ' ERROR: ITEM NOT IMPLEMENTED,'; 
ERTflL(2) = • OR OUT OF STOCK.'; 
ERTBL(3) = » PLEASE BACKUPS- 
CALL ERPAC; 

SUBSTRCREPLYFLD,1,1) = 'B'; /3f REPLY BACKUP X/ 

IF TERMINAL = »IBMPC ' & REPLYMODE = 'PCKP' THEN 

SUBSTR(REPLYFLD,2,1) = 'Y*; 
RETURN; 

END; /X OF HANDLING NOT IMPLEMENTED CASE X/ 

IF SUBSTR(DTYPE,1,5) = »INDEX» & -SUGITMHDR_BIT THEN 
/X FILL HEADER OF SUGITM TABLE X/ 

DO; 

SUGITM(l) = XSRCl); 

SUGITM. REPTXT(l) = 'SELECT A SUGGESTED ITEM 

SUGITMHDR_BIT = U'B; 

END; /X OF HEADER FOR SUGITM TABLE X/ 

IF SUBSTR(DTYPE,1,5) = 'BQOOO' THEN 

/X PUT ITEM REQUESTED IN HDR X/ 

DO; 

XSR(^) = XSRCl); /x MOVE HEADER TO LINE 4 x/ 
XSR.REPTXTCl) = CITEM.INM; XSR.RLOC(l) = " 2»; 
XSR(2) = XSRCl); XSR.RL0CC2) = ' 4'; 
XSR.REPTXTC2) = » COLOR = • M CITEM.COLORI | 

• SIZE = M ICITEM.SI2E; 
XSRC3) = XSRCl); XSR.RL0CC3) = • 6'; 
XSR.REPTXTC3) = ■ MODEL = • | ICITEM. MODEL; 
XL =1; DL = XL; NHL = 4; SDL = DL + 1; 
END; 

IF SUBSTRCDTYPE,1,5) = 'BUYOO' & 
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CSUBSTRCSNL.STATENCDTYPEIXSVC STACK)), 1,5) - •DQOOO» | 
SUBSTR(SNL,STATEN(DTYPEIXSV(STACK)),1,5) = 'BUYOO') THEN 
/X FILL XSR FROM SVITM X/ 

ij 

IF SUBSTRCSNL.STATENtDTYPEIXSVCSTACK)),l,5) = »BQOOO' & 
-XSRHM_BIT & REPLYFLD -= 'BACKUP' THEN 
/X TRANSFER CURRENT ITEM TO SVITM K/ 
DO; 

NUITEM = NUITEM + 1; 
SVITM, IITCNUITEM)— CITEM.IIT; 
SVITM. INMCNUITEM) = CITEM.INM; 
SVITM. COLORCNUITEM) = CITEM. COLOR; 
SVITM. SIZEC NUITEM) = CITEH.SIZE; 
SVITM. MODEL (NUITEM) := CITEM. MODEL; 
SVITM. QUAN(NUITEM) = CITEM.QUAN; 
- SVITM. STREP (NUITEM) = CITEM. STREP; " 
SVITM. lEP(NUITEM) = CITEM. lEP; 

GET SUGGESTED ITEMS 
CALL SUGGITM(SV1TM* IIT(NUITEM) ,XCI ,XL1 r STMT, RCODE) ; 
IF XLl > 0 THEN /X SUGGESTED ITEMS FETCHED X/ 
DO; 

DO IX = 1 TO XLl; /X CHECK IX COMP, ITEMS ARE NEW X/ 
NEMSUGITM^BIT = U»B; /X NEW SUGGESTED ITEM X/ 
DO II = 1 TO NUITEM; /X CHECK SVITM FOR NEW ITEM X/ 
IF SVITM. IITCII) = XCI.ICIT(IX) THEN /X SUGGESTED 

ITEM HAS BEEN ALREADY SELECTED X/ 
NEWSUGITM_BIT = 'O'B; 
END; /X OF CHECKING SVITM TABLE X/ 
DO II 1 TO NSUGITM + 1; /X CHECK SUGITM FOR 

NEW ITEM X/ 

IF SUGITM. NSTATE( II) = XCI.ICIT(IX) THEN /X SUGGESTED 
ITEM HAS BEEN ALREADY SELECTED X/ 

NEWSUGITM^BIT = »0»B; 

END; /X OF CHECKING SUGITM TABLE X/ 
IF NEWSUGITMJIT THEN /X SAVE COPM. ITEM X/ 
DO; 

NSUGITM = NSUGITM + 1; 
CH9 = NSUGITM; 

SUGIT«>REPID(NSUGITM+1) = SUBSTR(CH9,5,5); 

SUGITM. PURIIT(NSUGITM+1) = XCI.IIT(IX); 

SUGITM. DFCL(NSUGITM+1) = SUGITM. DFCL( NSUGITM) ; 

SUGITM, DBCL(NSUGITM+1) = SUGITM-DBCL(NSUGITM) ; 

SUGITM. DSL (NSUGITM+1) = SUGITM. DSL (NSUGITM); 

II = 2XM0D((NSUGITM-1),MSCI) + 4; 

CH9 =11; /X ROW LOCATION X/ 

SUGITM. RL0C(NSUGITM+1) ' SUBSTR(CH9,8,2); 

II = SUGITM. CL0C(NSU6ITM); 

IF II < 1 THEN 

DO; II = 1; CH9 = II; 

SUGITM.CL0C(NSUGITM+1) = SUBSTR(CH9,9,1); 

END; 

ELSE SUGITM. CL0C(NSUGITM+1) = SUGITM. CLOC(NSUGITM) ; 
CALL ITEMNM(XCI . IC1T( IX) , SUGITM- REPTXT( NSUGITM+1 ) , 
STMT,RCODE); /X GET COMP* ITEM NAME 
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IN SUGITM.REPTXT X/ 
SUGITM,NSTATE(NSUGITM+1) = XCI.ICITCIX); 
SUGITM.IVF(NSUGITM+1) = XCI.IEC(IX); 
END; /X OF SAVING COMP. ITEM IN SUGITM TABLE X/ 
END; /X OF IX LOOP X/ 
END; /X OF SAVING SUGGESTED ITEMS K/ 
END; /X OF CTIEM TO SVITM TRANSFER X/ 

/X MODIFY HEADER FOR INSUFFICIENT CREDIT X/ 
IF XSRHM^BIT THEN 
DO; 

CHl-5 = 0VERCH6; 

'YOUR PURCHASE REQUEST EXCEEDS CREDIT BY » 
I ISUBSTR(CH1A,S,5) | | • . M | SUBSTR(CH1^, 13, 2) ; 
END; /X OF MODIFYING XSR HEADER X/ 

^,^r^r.<^ TRANSFER SECOND TUPLE OF XSR TO LAST TUPLE X/ 
NXSRL = NXSRL + NUITEM; 
IX = XL + NUITEM + 1; 

SDLXSR = SDLXSR +1; /X ITEMS START INCREASED BY 1 X/ 
/X MOVE THE TWO SOFTKEYS TO THE LAST TWO ELEMENTS OF 
XSR X/ 

XSR(IX-l) = XSR(2); XSRCIX) = XSR(3); 

/X INSERT A SECOND HEADER IN XSR X/ 
XSR.REPIDC2) = XSR.REPID(l); 
XSR,STREP(2) = XSR.STREPQ); 
XSR.DFCLCZ) = XSR.DFCL(l); 
XSR.DBCLCZ) = XSR.DBCL(l); 
XSR.DSL(2) = XSR.DSL(l); 
XSR.RL0C(2) = » ^»; 
XSR.CL0CC2) = « 1»; 
XSR.NSTATEC2) = XSR. NSTATECl); 
XSR.IVF(2) = XSR.IVFCl); 

XSR.REPTXTC2) = • ITEM ITEM NAME Ml 

AMn.m-r ^^^^^ ^^^^ "^^^^ AMOUNT M 

AMOUNT =0; 

^^nll ^ l-r^^ NUITEM; /X MOVE REQUESTED ITEMS INTO XSR X/ 
CH9 — II; 

XSR.REPIDCII+2) = SUBSTRCCH9,5,5); 

XSR.STREP(II+2) = SVITM. STREPCII); 
XSR.DFCLCII+2) = XSR,DFCL(IX) ; 
XSR.DBCL(II+2) = XSR.DBCL(IX); 
XSR,DSLCII+2) = XSR.DSLCIX); 
IZ = 2X(NHL+2) + II - 1; 
CH9 ~ IZ" 

XSR.RL0C(II+2) = SUBSTR(CH9,8,2); 
XSR.CLOCCII+2) = " 2«; 
XSR.NSTATE(II+2) = "BUYOOOOO*; 
XSR.IVFCII+2) = XSR.IVF(IX); 

^Ui"^ = SVITM. QUAN(II); CH9 = SUBSTRCCH1^,6 , 9) ; 

lAM = SVITM. QUANdDXSVITM.IEPdl); /x TOTAL AMOUNT OF 

.«^MM^ . PURCHASE OF AN ITEM X/ 

AMOUNT = AMOUNT + lAM; 

CHl^i = lAM; 

FTXT = SVITM, INMCII); 
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IZ = «; CALL ELTRBLK(IZ,FTXT); IZ = IZ - IJ 
lY = AO; CALL ELLDBLKCIY,FTXT); 
IF lZ-IY+1 > 27 THEN IZ = 27; 

IF^IZ^< 1 yvm*/* ERROR IN LENGTH OF STRING */ 

CALL ERRORST; . , 

SUBSTR(XSR.REPTXT(I1+2),1,27) = 
SUBSTRCFTXT,IY,IZ); 

snB^TRtSVITM MODEL C II 5 . 1 » 11) 1 1 SUBSTRCCH9 ,7,3)11 

IEr(CH14;6V5)II':M SUBSTRCCHl'i,^ 
END? 5x OF MOVING REQUESTED ITEMS INTO XSR , K/ 
XL = XL + NUITEM +1; DL = XL; NHL = 2; SDL = NHL + I; 
SPTXT BIT = 'I'B; 
NSPL = NSPL + l; LSPL = 80; 
TAX = CAMOUNTX6)/100; 

SPTXTCHSPL ) » ' THE SALES TAX ON ALL YOUR REQUESTED • 1 1 

'"^iSBSTR(CHl5!6,5) II ''J i |SUBSTR(CH»,11,2); 
NSPL = NSPL + 1; 
TOTAL = AMOUNT + TAX; 

SPTXT(NSPL)*"= • THE TOTAL PRICE FOR ALL YOUR REQUESTED Ml 
'"'SE!l5lJ?6,5)i;i!'llSUBSTR(CHlA,ll,2); 

SBL'"="lf'' /Be'oHE BLANK LINE BEFORE M EXT TEXT X/ 
IF XSRHM BIT THEN /* CREDIT EXCEEDED DELETE ITEM */ 
SPTXT(NSPL) = • PLEASE DELETE SOME ITEMS TO REDUCE TOTAL ' 
11 'AMOUNT.'; 

|pTXTCNSPL> = • TO DELETE A SELECTED ITEM-ENTER ITEM NUMBER'; 
END; % GENERATING DATA IN XSR FOR BUYOOO X/ 

II = DL - SDL + 1; 

IF II > MSCI THEN NSL = MSCI; 

II^=^XSR^RLySHDL); III = XSR.CLOa^^^ 
IF III = 0 THEN /X CENTER DISPLAY X/ 

°°ill = 75; CALL ELTRBLK{1II,XSR.REPTXTCSHDL)); 
III = (75 - III)/2; 
END; /X OF CENTERING HEADER X/ 

?'f°^SR DSLciHDLf = I lllh DFON '''ITALIC; /X ITALIC FONT X/ 
IF xIr'dSLCSHDL) = 0 THEN DFON = '0'; /X STANDARD FONT X/ 
END; >X OF DATA ACQUIRING PREPROCESSING X/ 

XX FILL THE SOFT KEY TABLE IF ANY X/ 
IF -NODATA.BIT & XSR_BIT THEN /X CHECK FOR SOFT KEY X/ 

°°IF NXSRL = 0 THEN NXSRL = XL; 
IX =0; II = SDLXSR - 1; 
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DO WHILEC II < SDLXSR + NXSRL - 1); 
II = II + 1; 

IF SUBSTR{XSR.STREPCII),8,2) = »SK' THEN /X SOFT KFY *y 
IX ^^iJILL^SOFTKEYTAB AND ELIh!naTE FROM xIr'^/"^ 

IF IX > 4 THEN ERROR iu 
DO; 

GOTO DONE;' 

END; /X OF ERROR HANDLING X/ 
SnFTi^FY??u^i!^l5.?9r SOFTKEYTAB X/ 

SOFTKEYTAB. CLOC( IX) = XSR.CLOC(II) 

IV- ^.V-' = XSR.REPTXT(II); 

lY = <iO; 

CALL ELTRBLKCIII,FTXT); III = m - i; 
CALL ELLDBLK(IY,FTXT); ' 

^''call"errJrIt5 ^* ^'^^^^^ ^ 

SOFTKEYTAB. SKNAMEC IX) = SUBSTRCFTXT. lY III-TY+t». 
SOFTKEYTAB. NSTATEC IX) = XSR.NSTATE 11); ' 
tt/* remove SOFT KEY FROM XSR S)""^' 
III =11-1; 

DOjWHILEC^III < SDLXSR + NXSRL - 1); 

$fS-^F^D(III) = XSR.REPID(III+l)j 

$|R-STREP(II1) = XSR.STREPCIII+1) 

^IS-S^S!-""' = XSR.DFCLCIII+1), 

XSR.DBCLCIII) = XSR.DBCLCIII+1); 

XSR.DSL(III) = XSR.DSL(III+1); 

XSR.RLOCCIII) = XSR.RL0C(III+1); 

XSR.CLOCCIII) = XSR.CL0C(III+1); 

XSR.REPTXT(III) = XSR.REPTXT(in+l); 

XSR.NSTATECIII) = XSR.NSTATECIII+lj; 

XSR.IVF(II) = XSR.IVF(II+1) * 

END; /X OF III LOOP 
II = II - 1; 
NXSRL = NXSRL- 1; 
SOFTKEY_BIT = 'I'B; 

END; /X OF TRANSFERING SOFT KEY DATA K/ 
END; /X OF II LOOP X/ ^ 
IF NXSRL = 0 I SUBSTR(DTYPE,1,5) = 'SALEO' THfm 
NO ITEM WITH SOFT KEY X/ ° ^"^'^ 

ITEMWSOFT BIT = 'CB; 
NSOFTKEY = IX; 

END; /X OF FILLING SOFTKEY DATA X/ 
IF^-NODATAJIT THEM /X ELIMINATE CODES FROM TEXT X/ 
ill = MAX(DL, NXSRL); 

'"iPxTdM? JJSeA D^; ""^^ D'^TA X/ 
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IF SUBSTR(XTD.TTXCII),1»1) = 'K' THEN 

SUBSTR(XTD.TTX(II),l,l) = • »; 
IX = INDEXCXTD.TTXCII), , , , 

IF IX "= 0 THEN SUBSTRCXTD.TTX(II),IX,2) = * *i 
IF SUBSTRCXTD.TTXClI),7<i,l) = THEN 

SUBSTRCXTD.TTX(II),7<i,l) = ■ '> 
END; 

IF XSR_B1T THEN DO; 

IX = INDEXCXSR.REPTXTCII), "•"»); 

IF IX -= 0 THEN SUBSTRCXSR.REPTXT(II),IX,2) = • •; 
END; 

END; OF II LOOP 3e/ 
END; /X ELIMINATING CODES FROM TEXT DATA 3«/ 

IF DTYPE = •HODEL0OO» & NXSRL = 1 THEN /K ASSUME THAT THE USER 

*V.-:":'J?^^:.=SEtEeT THE ONLY MODEL. DO NOT DISPLAY 3f/ 

°°iF REPLYFLD = • BACKUP » THEN /X DO NOT CHANGE REPLYFLD 3f/ 
DO; 

REPLYFLD = '»; 

SUBSTR(REPLYFLD,1.1) = »B'; .or-ro. tu™ 

IF TERMINAL = 'IBMPC • 8 REPLYMODE = 'PCKP' THEN 

SUBSTRCREPLYFLD,2,1) = PCKPRP2; 
END; 

ELSE 

DO; 

REPLYFLD = »»; 

If ?SS^J'¥BHfJ 'K' REPLY»0»E - -PCKP- THEH 

SUBSTRCREPLYFLD,2,1) = "V; 
END; 

RETURN; /X TO RPLTRANS 3£/ 

END; /X OF SKIPING MODEL DISPLAY 3£/ 

/X ADJUST FOR MORE SCREEN X/ ^ , « 

IF SUBSTR(DTYPE,1.5) SUBSTRCSTATENCDTYPEIX5VCSTACK)),1,5) & 
SUBSTRC REPLYFLD, 1,1) »B« 
THEN INMORESC - SVINMORESC; 
ELSE INMORESC = Oi 

IF SUBSTRCREPLYFLD,!,!) = 'M* THEN /X SAVE gERIAL^NUMBER^ 

SVINMORESC ^ DIVIDE(SDL,MSCI,6); 
ELSE SVINMORESC =0; 

SVSCSTACK = SCSTACK; 
IF INMORESC > 0 THEN 
DO; 

STACK = MODCSTACK-INMORESCSTACKSIZ); 
SCSTACK = MODCSCSTACK-INMORESCSTACKSIZ); 
END * 

REPLYSV( SCSTACK) = REPLYSV(SVSCSTACK); 
IF SUBSTR(REPLYFLD,1,1) = 'N' THEN 

SVBACKUPSC( SVSCSTACK) = 'REQOOOOOHD'; 
ELSE IF SVBACKUPSCC SVSCSTACK) = »• & 



SA9-83-009 



0140302 



FILEi QKSHOPl PLIOPT A SAN JOSE RESEARCH LABORATORY - VMXSP CMS (1.11) 



SUBSTR(REPLYFLD,1,1) = 'B* THEN /X BACKUP ERROR X/ 

IF SVSCSTACK -= STACKSI2 THEN 
DO; 

iSIS!-,^"'.^^'-'* ' 2; ERTYP = 'ERRORBACKS' ; 
iSII.'-Ji^ = ERROR. BACKUP OUT OF PHASE WITH PC.»; 
ERTBL(2) = • SYSTEM ABANDS. PLEASE START AGAIN.'; 

v^ALL tKrAG; 
GOTO DONE; 

END; /X OF ERROR HANDLING K/ 
END; /X OF HANDLING -FISCOOOO CASE X/ 
^'-|L*5y^'^^'^^P^C^2"TACK) = SVBACKUPSCC SVSCSTACK); 
SVBACKUPSC(SCSTACK+1) = REPLYSVCSCSTACK); 

IF TERMINAL = 'IBMPC » THEN 
CALL PCDSPL; 

JFreSk^«'^^"2279' ' TERMINAL = 'IBM3277' THEN 
CALL DSPL779; 

PCDSPL » PROC ; 

/X SHIP THE FOLLOWING PARAMETER LIST TO PC ONLY IF 
SECOND CHARACTER OF PC REPLY IS Y: 
SIXEF' ML L , NL , DL L , PCFCL , PCBCL , PCFON, PCSRLOC, 
PCSCLOCXSR.REPTXT OR XTD.TTX TO PC- 
ALL VARIABLES HAVE TO BE TRANSMITTED 
AS CHARACTERS, 

INDEX TO ITEMS WILL BE ATTACHED BY PC. 

IF PC DOES NOT HAVE FONT GENERATOR THEN 
USE DFON AND XSR TO GENERATE TEXT IN SPECIFIED FONT 
USING PCCHAR AND STORE IN XSR. 

WAIT FOR REPLY IN PCREP X/ 



DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 



MLL 
NL 
DLL 
PCFCL 
PCBCL 
PCFON 



VAR CHAR(3); 
VAR CHAR(3); 
VAR CHARC3); 
CHARC3); 
CHARC3); 
CHARC2); 



PCSRLOC VAR CHAR(3); 
PCSCLOC VAR CHARC3); 

CHARCS); 



RECHD 
RECTL 



CHARC3); 



TXT VAR CHARC74); 
SCREENID CHARC20); 



CHS 
CHIO 
PCREP 
CI,IX,II) 
lY 
INL 
NIS 
SL 
EL 



CHARC8); 
CHAR(IO); 
CHARC32); 
BIN FIXED; 
BIN FIXED; 
BIN FIXED; 
FIXED BIN; 
BIN FIXED; 
BIN FIXED; 



/X MAXIMUM LINE LENGTH X/ 
/X NUMBER OF LINES X/ 
/X DISPLAY LINE LENGTH X/ 
/X PC FOREGROUND COLOR X/ 
/X PC BACK GROUND COLOR X/ 
/X PC FONT X/ 
/X PC SCREEN ROW LOCA. X/ 
/X PC SCREEN COL. LOCA. X/ 
/X RECORD HEADER X/ 
/X RECORD TAIL X/ 
/X TEXT TO BE SEND TO PC X/ 
/X SCREEN ID X/ 
/X FIXED 8 CHAR STRING x/ 
/X FIXED 10 CHAR STRING X/ 
/X REPLY FROM PC X/ 



/X NUMBER OF LINES IN HEADER X/ 
/X NUMBER OF ITEMS IN THE SCREEN X/ 
/X STARTING LINE X/ 
/X ENDING LINE X/ 



/X COMPUTE SCREEN ID AND SAVE IN SCREENID 
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FOR USE BY SEHDPCTYP X/ 

RECHD = 'aSX'j /X RECORD HEADER FOR SCREEN ID X/ 
RECTI = 'Zta'J /* RECORD TAIL FOR SCREEN ID 

FIRST SCREENS FOR FISCOODO & REQOOOOO */ 
IF DTYPE = 'FISCOOOO' THEN 

CVS.CVl = XSR.IVFCl); 
ELSE IF DTYPE = 'REQOOOOO' THEN 

CVS.CVl = XSR.IVF(S_HDL); 

/3£ CONSTRUCT SCREEN ID X/ 

IF'^luBSTR<sicHA20(STACK),1.7) = 'SOFTKEY' THEN /X SOFTKEY X/ 

FTXT = REPLYSV(SCSTACK-l); cdom 
IF^SUBSTRCREPLYFLD.1.1) = 'B' THEN /X UJEEyjc g 

FTXT = SVBACKUPSCtSCSTACK); m 
ELSE FTXT = REPLYSV C SCSTACK) ? /X SCREEN ID X/ 

IX = 21; CALL ELTRBLKCIX,FTXT)j IX = IX - 1; 

^^ IX?S^.l'<'i f!ik8''!^PERSf l?l length of STRING X/ 

"cReInId'^I^RECHDI |SUBSTR(FTXT,1Y.IX-IY+1) 1 IRECTL; 
IF SUBSTR(REPLYFLDtl»l) -*= 'B* THEN 
DO; /X CHANGE REPLYSV AND SVBACKUPSC X/ 

SVBACKUPSC(SCSTACK) = SUBSTR(FTXT,IY, IX-IY+1) ; 

REPLYSV CSCSTACK-l) = SUBSTRCFTXT,IY,IX-IY+1); 

END; /X OF NON BACKUP CASE xy 
ELSE 

REPLYSVCSCSTACK) = SVBACKUPSCCSCSTACK) ; 

INL « NHL; /X NUMBER OF LINES IN HEADER X/ 

MSCI = MSCL - INLs /X MAX NUMBER OF ITEMS ON A SCREEN X/ 

IF -MORESC_BIT THEN SDL = NHL + 1; 

IF II°*'>"mSCI*THEN /X MORE THAN MSCI DISPLAY LINES X/ 
DO; EL = SDL + MSCI - 1; MORESC_BIT = 'I'B; 
NSL «= MSCI; 

ElIe^'/X LESS THAN MSCI DISPLAY LINES X/ 
DO; EL = DL; MORESC_BIT = "O'B; 

NSL = DL - SDL + 1; 

END; 

IF (REPLYMODE = 'PCKP* S PCKPRP2 = »Y» ) I 
it- iKtrLinuuc^ ^ PCKPRP2 -= 'N') THEN 

/X SEND SCREEN DISPLAY INFORMATION TO PC X/ 

DO * 

SUBSTRCREPLYFLD,2,1) J;^^ ^ 



DO I 



IF DTYPE = 'REQOOOOO' THEN /X SET STACK FOR REQ ^ 
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DO; 

SVBACKUPSC(SCSTACK) = 'REQOOOOOHD' ; 
REPLYSV(SCSTACK) = SVBACKUP5C(SCSTACK1 • 
FTXT ; SVBACKUPSC(SCSTACK); ^ /I^SeEN ID K/ 
IX = 21; CALL ELTRBLKCIX, FTXT) ; IX = IX - 1; 
lY = 20; CALL ELLDBLKCIY, FTXT) I 

CALL^ERRORST-^ "^"^'^ °^ X/ 

i5Ss^^"J?csT?g5^i'5^a^iIi5T'^^-^^*^^'''^^^^^ 

SVCy(STACK) = XSR.IVFCSHDL); 

PfPP^ccMno^-rSE*^^^^ TRANSMISSION TO PC BEGINS X/ 
CALL SENDPCTYP; /3C SEND PC SCREEN TYPE X/ 

CALL'^SEARCHpf ^^^"^ '^^^ REPLYRD FROM PC 3e/ 

TXT = CVS.PCVC; 

IF^Sul^nwP^ /^.^^^?T.C£ny?^" COMMAND IN TXT 

IF SUBSTRCDTYPE,1,5) = »DEMOO« THEN /X START COMMERCIAL 

DO; DISPLAY 3£/ 

IF XI.ILC > XI.IFC & XI.ILC ^= 0 THEN 

DISPLAYS t/XX/«'), /X PAUSE FOR COMPLETION OF 

TF *:iincTDrvT TT-r ^ ^^^^^ COMMAND X/ 

IF SUBSTR(XI.IIT,l,i|),-= «DEMO» THEN 

DO; POSITION VIDEO TO START OF COMMERCIAL X/ 

CVSXVl = XI.IFC; 
CALL SEARCHP; 
TXT = CVS.PCVC; 

S5!:L SENDPCVDC; /X SEND PC VIDEO COMMAND IN TYT icy 
DISPLAYS t/^:r/«-); pause f5r COMPLETION OF 

PUn. nir en-.o^ «^ ^"^^^^ COMMAND X/ 

END; /X OF START OF COMMERCIAL X/ 

"'^ ^^^^"^ COMMERCIAL X/ 
CVS.CVl = XI.ILC; 
CALL AUTSTPP; 
TXT = CVS.PCVC; 
CALL SENDPCVDC; 

tr. i^^i^'"^ SENDING COMMERCIAL DISPLAY X/ 
ELSE DO; /X_NO COMMERCIAL MESSAGE X/ 

SPTXT^_BIT ~ ' I ' B ; 

NSPL = NSPL + 1; LSPL = 80; 

SPTXT(NSPL) = 'NO DEMO AVAILABLE FOR REQUESTED' 
XSR_BIT= 'O'b!'' P'-EASE BACKUP. ', 

END; OF NO COMMERCIAL */ 

END; /K OF COMMERCIAL HANDLING 3(/ 

IF MORESC_BIT THEN CH9 = MSCI; 

ELSE CH9 = NSL; ' 

IF NSL > 9 THEN NL = SUBSTRfCH9,8, 2) 1 1 • '• 

ELSE NL = SUBSTR(CH9,9,1)||','; ' 
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IF XTD BIT THEN 

MLL = '80, »; MAX LINE LENGTH ^ 

ELSE IF XSR.BIT THEN 

MLL = '^0,"; /X MAX LINE LENGTH X/ 

IF SUBSTRCDTYPEa.S) = *WARRO' THEN /Be DISPLAY WARRANTY 

IN BOLD LETTERS ^/ 

MLL ' '40,'; 

INL ' NHL; NUMBER OF LINES IN HEADER K/ 

NL = NHLIIS'; /X FOR PC NUMBER OF LINES IN HEADER 3C/ 

MSCI = MSCL - INL; /x MAX NUMBER OF ITEMS ON A SCREEN X/ 

SHDL = 1; /3e HEADER DATA IN LOCATION X/ 

CALL SEHDPCHDR; /X SEND PC SCREEN HEADER 3€/ 

IF XTD^BIT THEN 

DLL = '7^,»; /X WIDTH OF DISPLAY ^ 

ELSE IF XSR_BIT THEN 

DLL '35, •; WIDTH OF DISPLAY ^ 

IF XTD.BIT THEN 
DO; 

CH14 - XTD. DFCLC SHDL); PCFCL = SUBSTRCCH14,1A,1) 1 1 N » ; 
CALL COL ORTRANSC PCFCL); 

CH14 = XTD *DBCL( SHDL); PCBCL - SUBSTR(CH14, 14,1) 1 1' * ' / 
CALL COLORTRANSC PCBCL); . 
CH14 = XTD. DSL C SHDL); PCFON = SUBSTRCCH14, 14, 1) 11 * / ' ; 
IX ^ 2KNHL+2; CH9 = IX; 

IF IX > 9 THEN PCSRLOC = SUBSTR(CH9,8,2) 1 1 » , * I 
ELSE PCSRLOC = 5UBSTRCCH9, 9,1) 11 S ' ; 
IF SUBSTRCDTYPE,1,5) - »WARRO' THEN 

PCSCLOC = »0*; /X CENTER DISPLAY x/ 
ELSE PCSCLOC = *1»; /K DISPLAY START IN COL 1 X/ 
CALL SENDPCTXT? /X SEND PC NSL LINES OF TEXT X/ 
IF SPTXT^BIT THEN /X DISPLAY SPTXT AFTER XTD X/ 
DO; 

IX = 2XNHL + NSL + 3; 

CH9 = IX; 

IF IX > 9 THEN PCSRLOC = SUBSTRCCH9,8,2) | I « , ' ; 
ELSE PCSRLOC = SUBSTR(CH9,9,1) I I », • ; 
CALL SENDPCSPTXT; /X SEND PC NSPL LINES OF SPTXT X/ 
END; /X OF SPTXT DISPLAY X/ 
END; 

IF XSR BIT & NSL > 0 & ITEMWSOFT_BIT THEN 

/X SEND PC XSR TEXT X/ 

DO; 

IF XTD.BIT THEN IX = SDLXSR ; 

ELSE IX = SDL; 
IF SOFTKEY BIT THEN NSL = NXSRL; 

CH14 = XSRTDFCLCIX); PCFCL = SUBSTR(CH14, 14,1) 1 1 S ' ; 
CALL COLORTRANS(PCFCL); 

CH14 = XSR.DBCLCIX); PCBCL = SUBSTR(CH14,14,1) | 1 « ; 
CALL COLORTRANSCPCBCL); 

CH14 = XSR.DSL(IX); PCFON = SUB5TR(CH14,14,1) I | S ' ; 
PCSRLOC = XSR.RLOCCIX)!!','; PCSCLOC = XSRXLOCCIX); 
IF NSL > 0 THEN 

CALL SENDPCITEMS; /X SEND PC NSL LINES OF ITEMS X/ 



• r • ( 

r ' 

< » r t * 
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END; 

IF_SPTXT_BIT S -XTD_BIT THEN /* SEND PC SPTXT K/ 
IX = 2X(NHL-i-l) + NSL+ 4; CH9 = IX- 

CALL SENDPCSPTXT; /X SEND PC NSPL LINES OF SPTXT X/ 

/X SET SCREEN ROW & COLUMN LOCATIONS X/ 

IF SOFTKEY_BIT THEN /X SEND PC SOFT KEYS X/ 
CALL SENDPCSOFTKEY; ^ ^ 

^%fsCBOT%ir=°?l?B' ^T*''^*^^' SCREEN BOTTOM X/ 

ELSE STSClOT_BIT = 'O'B; 

END; /X OF SNEDING ONE HEADER AND ITEMS TO PC X/ 

IF_DTYPE = 'INSOOOOO' THEN /X INS STATE X/ 
END; 

IF DTYPE = 'WARROOOO' THEN /X N STATE xx 
END; 

IF DTYPE = 'WHCOOOOOVTHEN /X MHC STATE X/ 
END; 

IF DTYPE = 'ITEMODOO' THEN /X DI STATE X/ 
DO 7 
END; 

in.^--''^ ^ 'MOPTDOOO' THEN /X MOPTD STATE X/ 
END; 

IF DTYPE = 'DNI 00000- THEN /X DNI STATE X/ 

liU j 

END; 

REPLYFLD = • •; 

DISPLAYC ') REPLYCREPLYFLD); 

END; /X OF Y AS SECOND CHARACTER IN PC REPLY X/ 
DISPLAYC •§/++/«») REPLY( REPLYFLD); 
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END; 



IF REPLYFLD = 
IF REPLYFLD = . 
IF REPLYFLD = 'CY' 

REPLYFLD = «NN' 

REPLYFLD = 

REPLYFLD = 

REPLYFLD = 

REPLYFLD = 'BY* 
ON CONVERSION BEGIN; 



•R» THEN GOTO RESDl; 

•HX» THEN GOTO DONE; « 

REPLYFLD = 'CN» REPLYFLD = 

REPLYFLD = 'MY» REPLYFLD = 

REPLYFLD = 'QY' REPLYFLD = 

REPLYFLD = 'WY» REPLYFLD = 
REPLYFLD = 'XN' 

REPLYFLD = »BN» THEN RETURN; 
/X HANDLE NON NUMBER REPLY X/ 



»ZY' 
'XY 



»NY« 
•MN» 
•ZN» 
•WN» 



S!i?ffi[:|ISMr5;?liER REPLY = MIREPLYFLDllvat.), 

DISPLAY(»«a/5END NUMBER REPLY/St'); 
DISPLAYC REPLYC REPLYFLD); 
END; 

IX = SUBSTRCREPLYFLD,1,1); 
IF IX = 0 THEN IX = MSCI; 
IX IX + SDL 1 * 

IF "XSR.IVFCIX) -= 0 THEN /X NEW VIDEO FRAME X/ 

CVSXVl = XSR.IVFCIX); /x SAVE VIDEO FRAME NUMBER FOR 
SENDING TO PC WITH NEXT SCREEN X/ 



SENDPCTYPi PROC; 

/X SNEDS PC TYPE OF SCREEN X/ 

DISPLAYCSCREENID); 

IF SUB5TRCDTYPE,1,5) = 'BUYOO' THEN /X DO NOT CACHE SCREEN X/ 

ELlE^irSUBSTRCDT^^ = 'BQOOO' THEN /X REPLY NOT A 

MENU ITEM X/ 

DISPLAY(»%3«tax«); 
END SENDPCTYP; 

SENDPCHDR:^PROC^^^^^^ HEADER TO PC ONE LINE AT A TIME X/ 

DO I = SHDL TO INL; /X SEND HEADER TO PC 1 LINE AT A TIME x/ 
RECHD = »3t/'; /X RECORD HEADER FOR SCREEN HEADER X/ 
RECTL = V«»; /X RECORD TAIL FOR SCREEN HEADER X/ 
NL = »1,»; 

^^cS2?"="TD"DFCL(n PCFCL = SUBSTRCCHl^a^.D 1 1 S ' J 
/X PC FOREGROUND COLOR X/ 
CALL COLORTRANSCPCFCL); w ,Mt. • 

CH14 = XTD.DBCLCI); PCBCL ' SUBSTRCCH14, 1^*1) 1 1 S ' ; 
CALL COLORTRANSCPCBCL); 

/X PC BACK GROUND COLOR X/ 
PCFON = '0,»; /X PC FONT, 1 LINE OF HEADER x/ 

PCSRLOC^= SUBSTR(CH9,8,2)1I','; /x HEADER ROW LOCATION x/ 
PCSCLOC = «0"; /X HEADER COLUMN LOCATION X/ 
END; /X OF DATA FROM XTD x/ 



?3> 

-SE- 
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ELSE IF XSR.BIT THEN DO; 

CHll = XSR.DFCLCI); PCFCL = SUBSTR(CHl<i,14,l)M S '; 

PC FOREGROUND COLOR 3f/ 
CALL COLORTRANSCPCFCL); 

?llt CoKSS^Sf^kf??"': ' SUBSTR(CH1.,14,1)I,.,., 
/3e PC BACK GROUND COLOR K/ 
SCREEN ROW S COLUMN LOCATIONS X/ 

CHI? =^SR^DSL(i??'^^"'''' " XSR.CLOC(I); 

irci"2HS5.°"^YPE,I^5) = 'REQOO' THEN PCFON = ^7,'} 

IF XTD_BIT THEN 
DO; 

IF SUBSTRCXTD. TTXCI),7<i,l) = 'X' THEN 

SUBSTRCXTD. TTX(I), 7-4,1) = t .. 
IX = 75; 
lY = 74} 

FTXT = SUBSTRCXTD. TTX(I),1,IX-1); 
IF SUBSTRC FTXT, 1,1) = 'X' THEN 

SUBSTRC FTXT, 1,1) = ' •; 
END; 

ELSE IF XSR_BIT THEN 
DO; 

IX = 75; 

lY = 74; 

FTXT = SUBSTRCXSR.REPTXTCI),1,IX-1); 
END; 

CALL ELTRBLKCIX,FTXT); IX = IX - 1; 
CALL ELLDBLKCIY,FTXT); 

^''cALL^ERRORST;'^"^'* ^^^^^ ^^'^^"^ 
IF SUBSTRCDTYPE,1,5) = 'REQOO' & I = 1 THEM 

/x TEXT LENGTH 40 AND COLOR X/ 
DO; DLL = '34,'; PCFCL = '10,'; PCBCL = 'O.'; END- 
ELSE IF SUBSTRC DTYPE, 1,5) = 'BUYOO- THEN 

/X TEXT LENGTH 74 X/ 
DO; MIL = '80,'; DLL = »74,'; END; 

ELSE DO; CH9 = IX; DLL = SUBSTR(CH9,8,2) I I ' . ' ; FMn- 
IF MLL = DLL THEN PCSCLOC = 'IS- /X NO CENTERING i/ 
DISPLAYCRECHDI IMLLI INLI IDLLI IPCFCL I | pKj |fc?5ll| l?CSRLOC| | 

p§?f = ''^r*:! 7. ?fff^?OR'°SEJE^ES'?Elf'L'" 

END SENDPCHDR; 

SENDPCSKPi PROC; 

?E^?v?^ 5*^^^ INSTRUCTIONS FOR NUMBER OF LINES 
AN TaT */ 

Sir?? : MIXV' ^Jt 11^^^^ FOR SKIP X/ 

RECTL = •+»a'; /X RECORD TAIL FOR SKIP X/ 



SA9-83-009 
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DISPLAYCRECHDIITXTIIRECTL); /X SKIP TXT LINES K/ 
END SEHDPCSKP; 

SEMDPCTXT.^PROC;^ PC INL LINES OF TEXT LOCATED IN 
XTD STARTING FROM ELEMENT SDL */ 
DCL NSLT FIXED BIN; 

NSLT = NSL; 
puq - MSLTs 

RECHD ^ 'at/'; /X "RECORD HEADER FOR TEXT PARAM X/ 
RECTL = '/«a'; /X RECORD TAIL FOR TEXT PARAM X/ 
IF SUBSTRCDTYPE,1,5) = 'WARRO' THEN 
DO; HLL = '40,'; DLL = 'SB,'; END; 
ELSE DO; MLL = 'BO,'; DLL = '7'»; ''^l??; . , , 
IF NSLT < 10 THEN NL «= SUBSTR(CH9,9a) 1 1 ' / '; 

DISPLAYCRECHD I TmLU I NL i I DLL 1 1 PCFCL 1 1 PCBCL 1 1 PCFON 1 1 PCSRLOCi | 

PCSCLOCI I RECTL); 
DO I = SDL TO SDL + NSL - 1; 

IF SUBSTRCXTD.TTXtI),74,l) = 'X' THEN 

SUBSTRCXTD.TTX(1),74,1) = ' '; 
IX - 75; 

FTXT = SUBSTRCXTD.TTXCI),l»IX-l); 
IF SUBSTRCFTXT,1»1) = 'X' THEN 

SUBSTRC FTXT, 1,1) = ' '; 
CALL ELTRBLK(IX,FTXT); IX = IX - 1; 

ff'ix'^'?'T5liS^'Jx^K^0R IN LENGTH OF STRING X/ 

CALL ERRORS!; r-«o -rev-r 

RECHD = »*3/'; RECORD HEADER FOR TEXT 
RECTL = vats- /X RECORD TAIL FOR TEXT X/ 
IF SUBSTR(DTYPEa,5) = 'WARRO' & I^^lIYjl > J» ^^^^ 

IX = 38; FOR CENTERING ON BOLD TYPE X/ 

DllpLAYCRECfSDlTsukTRCFTXT,^ 1 1 RECTL); 

END; /X OF I LOOP 3e/ 
END SENDPCTXT; 

SENDPCSPTXT. PROC;^^ ^^^^ ^ ^ ^^^^ ^^^^ ^ 

DCL NSLT FIXED BIN; 

TP «;ilRSTRfDTYPE.l,5) = 'BUYOO* THEN NSPL = NSPL - 1; 

IF SUBSTRCDTYPE,10j ^^^^ ^RgCEEDED BY NBL BLANK LINES X/ 

IZ = IX; i'X SAVE STARTING ROM LOCATION X/ 
NSLT_= NSPL; 

RECHD '*=''^a«/'; /X RECORD HEADER FOR TEXT PARAM X/ 
RECTL = '/»a'; /X RECORD TAIL FOR TEXT PARAM X/ 
MLL = '80,'; DLL = '74,'; ^ ^ , 
IF NSLT < 10 THEN NL = SUBSTR(CH9,9,1) I I ' , ' ; 

lisPLAYCySDl iMLLnHU IDltliJ^^^^ IPCSRLOCi 1 



9S 

-SB?- 



0140302 



FILE. QKSHOPl PLIOPT A SAN JOSE RESEARCH LABORATORY - VM/SP CMS (1.11) 
Dr^u« PCSCLOCIIRECTL); 

RECHp = 'SS/'j /X RECORD HEADER FOR TEXT K/ 

RECTI = vat'; /X RECORD TAIL FOR TEXT x/ 

DO I = 1 TO NSPL; 

IX = LSPL+1; lY = LSPL; 

CALL ELTRBLK(IX,SPTXT(I)); IX = IX - 1; 

CALL ELLDBLKCIY,SPTXT(I)); ' 

CALL^ERRORSt/"^" STRING K/ 

DISPL AY( RECHD M SUBSTR ( SPTXT ( I) , lY, IX-lY+1 ) 1 1 RECTL J • 
Tc^cSici!^ °^ SENDING SPTXT LOOP i/ IT+IJ MRECTL), 
IF SUBSTR(DTYPE,1,5) = 'BUYOO' THEN /X DISPLAY LAST LINE 
BQ. FOLLOWED BY NBL BLANK LINE x> ' ""^ 

CH9''=^Izt * ^* ''^"••^'^ ^LANK LINE X/ 

NSPL = NSPL + Ij- 
IF IZ > 9 THEN PCSRLOC = SUBSTRfCHQ >t 7lllt 
^^ELSE^ PCSRLOC = SUBSTRtCHlfJ,!) | | ^i?^ ' ' ' ' 

REC?L - blal^" Si^SSS Sf^P^"^ TEXT PARAM X/ 

plr?? : ^* RECORD HEADER FOR TEXT X/ 

if I'lS^l:^^ ^M^fP-^^ TEXT 
CALL ELTRBLK(IX,SPTXT(NSPL)); IX = IX - 1- 
?p'■U^tl>??'■'^^^Y'SPTXTCHSPL)); ^' 

CALL SJoRSt/"^*^ "-^"^TH OF STRING X/ 

DISPLAYt RECHD lisUBSTRCSPTXTC NSPL ),IY,IX-IY+11 1 IRFCTI I- 
END^siNDP^SpfxTf^"-^"'^ ^'^^^ '"^''^ mi)l|RECTL), 

SENDPCITEMS. PROC; 

/X SENDS PC NL LINES OF ITEMS LOCATED IN 5CTn 
OR XSR STARTING FROM ELEMENT SDL X/ 

DCL CIZ,IK) FIXED BIN; 

dIoSP ■ I^'^^I' RECORD HEADER FOR LIST ITEMS X/ 
RECTL = VZ3'; /'X RECORD TAIL FDR I T^T ttpmc 
IF XTD.BIT & XSR BIT THEN NIS = NXSRL^ 
ELSE NTs = NSL; NXbRL, 
CH9 = NIS; 

IF XTD_BIT I SPSCBOT_BIT | SUBSTRCDTYPE,1,5) = 'BUYOO' THEN 

All = '80,'; DLL = '74,'; 
END; ' 
ELSE DO; 

END-" '^"''^ 
NL = SUBSTR(CH9,9,1)||','; 



SA9-83-009 
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DISPLAYCRECHDI |MLL | |NL llDLL I | PCFCL I I PCBCL IIPCFONI iPCSRLOCf I 
PCSCLOCI IRECTL); 

II = 0; 

DO WHILEC II < NIS); 
II = II + 1; 

IF XTD BIT & XSR^BIT THEN I = SDLXSR + II - 1; 
ELSE I = SDL + II " 1; 
IF XSR^BIT THEN DO; 
IX = 75; IZ = 

FTXT = SUBSTR(XSR.REPTXT(I>^1*IX"-1); 
CALL ELTRBLKCIX,FTXT); IX = IX - 1; 
CALL ELLDBLK(IZ,FTXT); 
lY = 11; 

IF SUBSTR(DTYPEa,5) - 'BUYOO' THEN 

/X USE SCREENID FOR NEXT SCREEN ^ 
CKIO = SUBSTRCSCREENID,4,10); 
ELSE CHID = XSR.STREPCI); 

CALL ELTRBLKCIY,CH10); lY = lY - 1; . . 

IF IX-IZ+1 < 1 1 lY < 1 THEN ERROR IN LENGTH 

OF STRING X/ 

CALL ERRORST; 
TXT = SUBSTR(FTXT,IZ,IX-IZ+1); 
TXT = TXT|1«:!M1SUBSTRCCH1D,1,IY); 
END; 

ELSE IF XSI_BIT THEN 
DO; 

IX = «; IZ = 40; 

FTXT = SUBSTRCXSI.INMCI),1,IX-1); 

CALL ELTRBLKCIX,FTXT); IX = IX - 1; 

CALL ELLDBLKCIZ,FTXT); 

lY = 9; CHS = XSI.IITCI); 

CALL ELTRBLKCIY,CH8); lY = lY - 1; 

IF IX-IZ+1 < 1 I lY < 1 THEN /X ERROR IN STRING LENGTH X/ 

CALL ERRORST; 
TXT = SUBSTRCFTXT,IZ,IX-IZ+1); 
TXT = TXTI l'»!MlSUBSTR(CH8a*IY); 
END ' 

rechd'= «a%+»; /x record header for item text X/ 

RECTL - »,+X3»; /X RECORD TAIL FOR ITEM TEXT 5C/ 
DISPLAYCRECHDl ITXTI IRECTL); 
END; OF II LOOP ae/ 
END SENDPCITEMS; 

SENDPCBOTt PROC; 

/X SEND PC SCREEN BOTTOM X/ 

IF SPSCBOT^BIT THEN 
DO; 

RECHD = »3«/'; /X RECORD HEADER FOR SCREEN END X/ 
RECTL = »/«3*; /X RECORD TAIL FOR SCREEN END X/ 
IX = 75; CALL ELTRBLKCIX,SPSCBOT); IX = IX - 1; 
lY = S4; CALL ELLDBLKCIY,SPSCBOT); 
CH9 ~ IX; 

MLL - »80,»; NL = '1,'; DLL = SUBSTRCCH9,8,2) 1 1 S * ; 
II = 2XCNHL + NIS) + 1; I = MIN(II,22); 
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CH9 = 1; 

PCSRLOC = SUBSTR(CH9,8,2)||','; PCSCLOC = 'l.t; 

PCsIlOcI IreCTL)- 'PCBCLI IPCFONI |PCSRLOC| | 
SlrrP ° RECORD HEADER FOR SCREEN END K/ 

?FIv r^K^t i Tu-rf.* '^^^25'' TAIL FOR SCREEN END 3f/ 

CALL ERRORST- °^ 
DISPLAY( RECHD I i SUBSTRCSPSCBOT, lY, IX-IY+1 ) I I RECTL) ; 

pirV? " RECORD HEADER FOR SCREEN END X/ 

i = I - SVINMORESC; 

^%5liSM0RESc''=^S-°'^'^^ ^"^^ ^* ^° ^^'^^^''S 

END; ' 

IF DTYPE -= 'REQOOOOO* & 

^^_DTYPE -= 'PURDOOOD' THEM /X SEND BACKUP BOTTOM 3£/ 
?c Tv^J', $Skh ELTRBLK(IX,SVBACKUPSC(I)); IX = IX - 1; 

gJS^'-AYCRECHDI | 'B. ! • I |SUBSTRCSVBACKUPSC(I),1,IX)I |RECTL), 
IF STSCBOT BIT THEN 

STANDARD SCREEN BOTTOM X/ 

DISPLAY(RECHD| | 'C: ! FISCDOOODl' I IRECTL); 

DISPLAYtRECHDI | 'N: !REQ0OOOOHD> RECTU 

END; /X OF STANDARD SCREEN BOTTOM X/ 
IF MORESC_BIT THEN «wiiu.i>«^ 
DO; 

I = DIVIDE(SDL,MSCI,6) + 1; 
CH9 = I; 

^•"oJ?. ^.rLISfi! IN LENGTH OF STRING X/ 

CALL ERRORST; 

IF SUBSTR(FTXT,IX-1,1) = -M' THEN /X ELIMINATE LAST TWO 
IX = IX - 2- CHARACTERS K/ 

lY = 20; CALL ELLDBLKCIY,FTXT); 

^''cALL^ERRORST;'^"^'* ^^^^'^^ STRING X/ 

IF SUBSTR(SVCHA20(STACK),1,7) = 'SOFTKEY' THEN yx SOPTlfPY *r 
DISPLAY(RECHD| | 'M. ! • | ISUBSTRCFTXT.IY IX-IY+1)1 1 *^ 
SUBSTR(SVCHA20CSTACK),9,2)| 'M'l I ^" ■ 
SUBSTR(CH9,9,1)| IRECTL); 

i:!5 i lis?;"' '•"■II 



qs 
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END; 
END SENDPCBOT; 

SENDPCSOFTKEYt PROC; 

✓X SEND PC SOFTKEY 3f/ 

IF SUBSTR(DTYPE,1,5) = 'SALEO; 8 XS.ISP(l) -= 'SO ' I 

SUBSTRCDTYPE,1,5) = 'WARRO' I 
SUBSTR(DTYPE,1,S) - 'PUROO' THEN 
HLL s "iO,'; , 
ELSE MLL = '80,»; 

?H'-A'?6'iisoE?fE!r,' ?.%kk^'ll^ l^'klkzEH LINE ^ 
"°REcSD'=^?at/?r'^ /Be RECORD H|A?ER FDR SCREEN END^B^ 

RECTL = «/t3»; /X RECORD TAIL FOR SCREEN END ^ 

IX =21; FTXT = SOFTKEYTAB.SKHAME(I); 

lY — 20* 

CALL ELTRBLK(IX,FTXT); IX = IX - 1; 
CALL ELLDBLK(IY,RXT); „ , 

^ll.lo¥L ifetTK^]!l!gfS"c?i5if^!!;''^ 
£fsflS5cSK{?iSt?ffLLW 

RECHD'i*'"*5/??*'''5^'°EiffikiiER FOR SCREEN END 3C/ 
RECTL = Va*'; /X RECORD TAIL FOR SCREEN END ^ 
IF IX-IY+l < i THEN /X ERROR IN LENGTH OF STRING X/ 

DISPLAY(RECHd1iSUBSTRCFTXT,1Y,IX-IY+1)1 IRECTL); 

RECHd'= 'Saz*; /X RECORD HEADER FOR SCREEN END X/ 
RECTL = '*a«';- /X RECORD TAIL FOR SCREEN END X/ 
DO I = 1 TO NSOFTKEY; /X SEND SOFTKEY REPLY SCREENID X/ 
FTXT = REPLYSVCSCSTACK); /X SCREEN ID X/ 
IX = 21; CALL ELTRBLK(IX,FTXT); IX = IX - 1; - 

i^ IX?S^n'<'i flikS"-/"lRm LENGTH OF STRING X/ 

DISPLAYCRECHDl 1 SOFTKEYTAB SKEYCI) 1 1 • . ! ' I I 
SUBSTR(FTXT,IY,IX-IY+1)I| ,■ 
SUBSTR( SOFTKEYTAB . SKNAMEC I ) , 1 , 2) 11 RECTL) ; 

END; 

END SENDPCSOFTKEY; 

SENDPCSENDi PROC; ^ ^^-^cm 
/X SEND PC END OF SCREEN XX 

RECHD =•«/+'; /X RECORD HEADER FOR SCREEN END X/ 
RECTL = '+/«•; /X RECORD TAIL FOR SCREEN END X/ 
DISPLAYCRECHDl IRECTL); 
END SENDPCSEND; 

SENDPCVDCj PROC; 

/X SNEDS PC VIDEO COMMAND IN TXT X/ 
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RFr?? : Wii'.' RECORD HEADER FOR VIDEO COMMAND */ 
mJLY?RES;iTi?,fii?fW'^^'- ^ 
END SENDPCVDCr " ^° ''^ 

/X CALL PCCHAR; 

"obH»^l'^^'^*'''E PC SCREEN FROM XSR AND 
SEND TO PC AND PROCESS STANDARD REPLY FROM PC X/ 
END PCDSPL; 
DSPL779: PROC; 

" f?'S?oS'rrif;fiE^TgkS'='""'°'' * 

CALL ITALSCCDTYPE). 

IF DFON = *0» THEN 

CALL ALPHASC. 

OR CALL COLORSC. 

THEN WAIT FOR REPLYFLD x/ 

DCL (II,STI,III) BIN FIXED; 

MSCI = MSCL - NHL; 
II = DL " SDL + 1; 

''d5? jo5liJJ!f"= <?.SPSkr='SIJi?°'*' '"'^'^ ^"^^"^ 

ELSE DO; MORESC_BIT = •O'B; NSL = DL - SDL + 1; END; 

^Sp2^^nn ^ 'FISCOOOO* 8 TERMINAL = 'IBMSZ??' 

CV -''54p'^?wi^T>^'-25. P" PO"^ STATE FISC ON IBM3279 K/ 
" ^E'^Ajnfiiv^'^'-'- SEARCHCADDRCCV)); *^ 

NSL i^igi 

IF DFON = »ITALIC' THEN 
DO; /X HANDLE ITALIC FONT x/ 
DW = 1; SVSCREEN = »FISC'; 
CALL ITALSCC SVSCREEN); 
END; /X OF HANDLING FISC ON IBM3279 IN ITALIC XX 

IF DFON = '0' THEN 
DO; /X HANDLE STANDARD FONT X/ 
DW = 2; 

CALL COLORSC ; 

EN5?'';x'SF°flSS'r5?g32%'t' ""^2" "^ONT X/ 

IhIE TERMINAL = •IBM3279• 
'"f^ D??^e'^ ?iL§iSSo?"TE?5 '^^'^ ""^ ""^^^'^ - 

DO ; 



%x^niipri5"2t^i^'^,'i'-'- SEARCH(ADDR(CV)); 
''X DISPLAY FIRST VIDEO SCREEN X/ 
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END; 

/9e SET START OF ITEM NUMBERING X/ 
IF SUBSTR(DTYPE,1,5) = 'ITEMO' I _ 

SUBSTR(DTYPE,1,5) = 'DEMOO* THEN STI - li 
ELSE STI = SDL; 

IF SUBSTR(DTYPE,1,5> = 'DEMOO' THEN /K HANDLE COMMERCIAL X/ 

nn * 

IF XI.ILC > XI.IFC & XI.ILC 0 THEN 

BO * 

IF substr(xi.|it.i,.)^---;bemo|^th^ ^^^^^^^^^^ ^ 

CA^'kuSiffi'lfE^^^^ DISPLAY COMMERCIAL 
END; /i OF COMMERCIAL HANDLING K/ 
ELSE /X NO COMMERCIAL AVAILABLE X/ 
DO; 

SPTXT_BIT = U»B; 

SPTXTCNSPL) = t'NO DEMo'aVAILABLE FOR REQUESTED' 
SPTXTlNSt-LJ j|i ITEM. PLEASE BACKUP. »; 

END? /X OF NO COMMERCIAL HANDLING X/ 
END; /X OF COMMERCIAL HANDLING X/ 

TF ySR BIT & NSL > 0 & -CNDDATA.BIT & XTD_BIT) THEN 
IF XSR_BIT a NSL u ^^^^^^ _ jjj^^ ^^^5 ^ 

CALL ATTINX(STI>; 
IF DFOH = 'ITALIC THEN 

^^VJt??^^^^^^^ = 2; 

ls4ffLicSISE?K'>x'55sPLAY PRESTORED SCREEN X, 
END; /X OF HANDLING REQ ON IBM3279 IN ITALIC X/ 

IF DFON = '0» THEN ^ „ 

DO; /X HANDLE STANDARD FONT X/ - 

DW = 2; 

END; /x''0F^lBM3279 STANDARD FONT X/ 

Wi^kl = • TSiS Tx%;SffAY VIDEO FOR BACKUP X/ 
•^"iF SUBSTRCDTYPE,1.5) = 'PURJO^/HEN -„|A|!;SP,IS^«OT 

^°ERTBL = "J ERLN = 2; ERTYP = • ERRORNOBAK" ; 
ERTBLCl) = • ALL ITEMS HAVE BEEN CHARGED.' 1 1 

* BACKSJP NOT ' j 
ERTBL(2) = » VALID. PLEASE ENTER NEW REQUEST.'; 
CALL ERPAC; 
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CALL RPLTRANS; 
RETURN; 

11^"°STACK ^^^ANJ^-INe INVALID BACKUP X/ 

?l = """^'^^'STACKSIZ) + 1; 

CV - SVCV(II) ° ™^*^ ^* ^^^^^ 

REtiiRSf'''"^'^'"^^^^''' 
END; 

^EK^fu^N,:^ ' ' "^^"^^^LD = .N . I REPLYFLD = •„ . 

ELSE IF SOFTKEY_BIT a 

ON CONVERSION BEGIN; RETURN, 

FR?R!-fi/I'.^lkL« ^' ^'^■'■YP = 'ERRORMONUM'; 

c5u eJ?aC; NUMERICAL REPLY = 5||REPLYFLD; 

GOTO DONE;' 

END; 

ll TT^S^^bL^'-^'^^'-'^^"' "REPLYFLD); 

'cJu'eRrSSIt; "'^ '"""'^ "'^ STRING 

If'^XTD.BIT S XSR_BIT THEN 

STI = SUBSTRC REPLYFLD, 1,11-1) + SDLXSR - 1- 
lF^yJ^?«prlV??T'^^'*^f'LYkD:tlI-l) +'-SDL - 

''cf'-xsR^iI^Jsnj? '^'^^"^ X/ 

IF SUBSTR(DTYPE,1,6) -= -ITEMOD' S ^ 

CALL sL^R^SHfJESfefJ??);"'"'"^"^^^ ''m^ if^^C^''^ 

END; 0?'!S!i§l79"S "^'^"'^^ ""^''^ 
ATTINXi PROC(STI); 

DCL CSTI,IX) BIN FIXED; 
IX = 0; 

DO II = STI TO SDL+NSL-1; 
IX = IX + 1; 

IF «p\T?Si^ T"^** = MOD(IX,MSCI); 
IF XSR_BIT & /K DATA IN XSR TABI F *y 

(SUBSTRCXSR.REPTXTCin 1,2) • (?s ^ 
(SUBSTR(XSR.REPTXT(II),4,I) -= •)• | 
SUBSTR(XSR.REPTXT(II) 5 1) •)•)) THEN 
XSR RFP^yrfT?'? HAVE INDEX lO 

Eilfif'^,V\Vi\- '^^"SJiJ^Ji'S'ffijr-L'PTXTcina^ 

(SUBSTR(XTD.TTX(II),1,2)^= • (. I 
(SUBSTRCXTD.TTX(II):^7l) .). f 
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SUBSTR()aD.TTX(II),5,l) 'V)) THEN 
XTD.TTX^?iri".'?f?cr5c5$?f|l!lSi?RKTl,.TTXCII),l); 
END? /X OF ATTACHING INDEX X/ 
END ATTlNXj 

END DSPL779; 

IF MORESC BIT THEN NODATA_BIT = 'i^B; /X DO NOT FETCH DATA X/ 
ELSE NODATA_BIT = 'CB; -/X HAVE TO FETCH DATA X/ 

END DSPLAYi . 3£/ 

/X 

ITALSCr PROCEDURE (SVSCREEN) J 

/X DISPLAYS PRESTORED COLOR SCREEN USING GDDH X/ 

DCL SVSCREEN CHARC8); 

DECLARE ( ). 

FSINITENTRYC .^INITIALIZE ^' 

FSSHOW ENTRY( CHAR(8) ^^^^ ^^^^^ ^^^^^ ^' 

FSTERM ENTRYt TERMINATE 
) OPTIONS (ASM, INTER) J 

CALL FSINITj 

CAL?FisHOM(SvlcREEN); /X RECALL SCREEN X/ 

/X HIT ENTER TO CONTINUE X/ 
CALL FSTERM; 

END ITALSC; 

ALPHASCi PROC ; 

"aSCGET ENTRY( BIN FIXED(31),BIN FIXED(31) ,CHAR(X)), 
ASCbti cwiKii. oj. ^y^i^Y CHARACTER CODES X/ 

ASCPUT ENTRY( BIN FIXED(31),BIN F1XED(31) ,CHAR(X)), 
Asurui tniKiv CHARACTER CODES X/ 

ASDFLD ENTRY( BIN FIXED(31) ,BIN FIXED(31), BIN FIXED(31), 
AiDl-tu CNiKTi D FIXED(31),BIN FIXED(31),BIH FIXED(31)), 

" DEFINE ALPHANUMERIC FIELD X/ 

ASFCUR ENTRY( BIN FIXED(31),BIH PJJIDtJl'^BIN FIXED(31) ), 

ASREAD ENTRY( BIN FIXED(31) ,B1N^FIXED(31) ,B1N^FIXED(31) ) 

)OPTIONSC ASM, INTER); 
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DECLARE ( 

FSINIT ENTRYC ), 

FSPCLR ENTRY( ' INITIALIZE X/ 

FSTERM ENTRY( ^LEAR^ 3{/' 

)OPTIQNS(ASM.IMTER), ^* TERMINATE X/ 
DECLARE ( 

GSCHAR ENTRY(DEC FL0ATC6),DEC FL0ATC6),BIN FIXED(31) CHARf^n 
GSCOL ENTRY(BIN FIXED(31))/* ^"'^'^'^CTER STRING Afi;^"*"^^*^^' 

6SFLD ENTPYf RTu cTv™^^^? COLOR X/ 

ENTRY( 3BIN^FIXED(31).BIN FIXEDC31),BIN FIXED(31), 

eSSCLS ENTRYC '^^AFMICS FIELD 96/ 

GSSEG ENTRYC BIN FIXEDCa)"")?^' '^^"^"^ 
OSWIN ENTRYC JEC FLOATC^^,pf.^« 

)OPTI0NS(ASM,INTER)r ^''^"'^ ^ 

DECLARE SCREEN CHARACTERC1760), 
STRING CHARC80), 

C-dSo FIXEDC31) INITIAL C D i 

DCL CLD "XED; 

DCL CATTYPE,ATTHODE) Hi f^SSglsi); 

CALL FSlNITi 

STRING = ••; 
X_POS =0; 

S.!-!- FSPCLR; /X CLEARS SCREEN X/ 
CALL GSSEGCl); /X OPEN SEGMENT 1 X/ 

CLO = 1, 

X^phs'^'^S'-^S'-S^i SET COLOR X/ 
STRS§G-=°j8jT?2?.= - '«Y_SCALE; L = 80, 

CALL eSCHAR(X_POS,Y_POS,L,STRING); 

DO l"= I TO^NHL. "'^ "E«ER X/ 

IF XSR.BIT THEN CLO = XSR.DFCLCSHDL+I-1), 
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IF XTD_BIT THEN CLO = XTD.DFCUSHDL+I-D; 
CALL GSCOL(CLO); /X SET COLOR ^ 

?pTsR%;i ¥e %TRyG°i S& 

IF XTDlBIT THEN STRING = XTD.TTX(SHDL+I IJJ 

^Kil'^TTHES'-J^'ESESft IN LENGTH OF STRING ^ 

CALL ERRORST; 
TT = (1 - l)3f80 + 1» 
SUBSTR(SCREEN.Il,'iO) = STRING; 

|5ii ^STF^fe^g^A^Nf A^aI^^^^^ 
5oM}?tE*ci'<='aL:Nlf-a'l)H < DL); /X HOVE DATA INTO SCREEN ^ 
I = I + U 

Yf pt"MT THEN ItBIKG = XTO.TTXCBTDi 
luBSTRC5CRlra"lt«J) " STRING! 

iT = ci -'l)x80 + 1;"" 

STRING = SUBSTRt SCREEN, II , 80 ) J 
CALL 6SCHARCX_P0S.Y_P0S;L. STRING) J 

END; /X SCREEN BOTTOM DISPLAY */ 

REPLYFLD = ' 'f 

Stt fsfFtlSlfM?"!'"'"!" .ECL.RE FIELD FOR^RERLY «/ 

°.:rRr;.!!;i^ '";.'K»s5?x5!!.'^i^oravrTo fieux. « 

/X HIT ENTER TO CONTINUE X/ 
CALL FSTERM; 

END ALPHASC; X/ 

/X 

COLORSC* PROC > 
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5Jf^!-^XU"^ 2279 SCREEN IN COLOR AND SAVES THE 
DISPLAYED SCREEN IN SCREEN X/ 

^°-°rpp?5^^c ° CJf-*'^'^' 1 = 2 = BLUE; 3 = MAGENTA; 

4 - GREEN; 5 = YELLOW; 6 = CYAN; 7 = WHITE X/ 

Sn!" Jt'*''iiI^J?A'-'^^iiP"''-2'L3,L«i,III) BIN FIXED; 
DCL LI STATIC BIN FIXED; 
DCL (TXT, TXTl) CHAR(80); 
DCL CL BIN FIXED(31)j 

Sr|- pifpSI IKTS^ ^"XEDC31) BIN, FIXED(31) BIN) OPTIONS(ASM); 

ScL R^irm Wt l^rV^ ^^^^^ THE SCREEN X/ ' 

Jit ^i^R?^ isi^j [fsijigjMJ ?Kis?i5f s^, ^^xL^isfs^s^Nr 

DCL R3ZM0V. EXT ENTRY VSl gJJigUlf Kr^) '^.^^^^^^V,,*^ 

DCL R320TX EXT EHTRY C, FIXEDC31) BIN) OPTIONSC ASM) • 

Sit ?hE!!,fJ?,EK?!'iii;"FSShir'=™ "'"^^ " 

/X ALL ENTRIES STARTING WITH R32 RESIDE ON WELLER 193 

SfHSI^^°'22); /X SCREEN INITIALIZATION */ 
^^'-US^i??^' SCREEN ERASE X/ 

ir.,F5-^^T * S""- 0 THEN CL = XTD.DBCL(SDL); 
ELSE IF XTD_BIT & SHDL -= 0 THEN CL = XTD DBCLCSHDD- 
Pl-p M f ISP'- -= " THEN ct = XSR.Db" IhSuI 
l^li '^SR BIT S SDL -= 0 THEN CL = XSR.DBCL(SDL); 
ELSE CL = 5; /X YELLOW COLOR X/ 
IF CL = 0 THEN CL = 5; 
CALL R32C0L(CL); 

LLX = 1; LLY = 1; URX = 80; URY = 32; 

IF'"SLOC^=^"THEN'"sL6c'*='2r^' BACKGROUND COLOR X/ 

LNF = 0; LNB = 32; LN77 ='o; 

DO ['""■-^I^'tO? DISPLAY THE HEADER x/ 

if X^D'S?/3i = " = * 

DO; /X DISPLAY FORM XSR X/ 

LNB = 32 - L2; 

CL = XTD.DFCLCSHDL+L2-1); 

IF CL = 0 THEN CL = 1; 

CALL R32C0L(CL); 

IF SUBSTRCDTYPE,1,5) = 'WARRO* THEN /'X CENTER DISPLAY X/ 
CALL R32M0V(21,LNB); ui:>r'LAT x/ 

ELSE CALL R32M0V(2,LNB); 

TXT = XTD.TTX(SHDL+L2-1); 

END; /X OF XTD DISPLAY X/ 
ELSE IF XSR_BIT THEN 
DO; /X DISPLAY FORM XSR X/ 

LNB = 32 - XSR.RL0CCSHDL+L2-1); 

CL = XSR.DFCLCSHDL+L2-1); 

IF CL = 0 THEN CL = 1; 
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CALL R32C0L(CL)? ,^ , „, i 

IF XSR.CL0C(SHDL+L2-1) ?* « . v<t T«;Pfl-> -= 'SO ') 

C SUBSTR(DTYPE.1,5) = '1*^12 ^S.ISPCl) 50 
THEN /X CENTER THE HEADER 56/ 

^°ill = 75; CALL ELTRBLKCIII,XSR.REPTXTtSHDL+L2-l)); 
III = C75 - III)/2; 

pUQ — TTTs 

XSR.CL0C(SHDL+L2-1) = SUBSTR(CH9,8,2); 
END /X OF CENTERING HEADER K/ 
CALL R32M0VCXSR.CL0C(SHDL+L2-1),LNB); 
TXT = XSR.REPTXTtSHDL+L2-l); 
END; /X OF XSR DISPLAY 
=81; 

If''U^<TtHEn'''J?ERROR in LENGTH OF STRING 
CALL ERRORST; 

iS^Di "^^I^S^F^IfsptJ^iNG HEADER ^ 
L2 = LNF; LNBH = LMB; 
LI = SDL - 1; 

IF ((XSR_BIT 8 -XTD_BIT) I C-XSR_BIT & XTD.BIT)) THEN 

uuTiP {fl9 <= 22 - DW) & (LI <SDL+NSL-NS0FTKEY-1))5 
DO WHILE («L2^<-^22^jj DNJ a^j.^^ ^^^^^^ ^^^^^ P^^^ 0^ 

XTD DATA X/ 



IF iuBSTR(DTYPE,l,5) = 'SALEO' 8 XS.ISP(l) -= 'SO 
THEN /X CENTER DISPLAY X/ 

ELsl*"lF XslHiT 8 XSR.CLOC(Ll) -= " THEN 
SLOC = XSR.CLOC(Ll); 

tf^XsI''bIT°THEH TXT = XSR.REPTXT(Ll) ; ^ 
ELSE IF XTdIbIT THEN TXT = XTD.TTX(Ll); 
TXT = SUBSTR(TXT,2); 

^^?\fD!DSSL;;^ 0 THEN CL = 1; 
ELSE CL = XTD.DFCL(Ll); 

tNF^'"LNF ?%; LNB = LNB - DW; LN77 = LN77 + Ij 
END; /X OF XTD CASE X/ 
IF XSR_BIT THEN DO; n - i • 

IF XSR.DFCL(Ll) = p THEN CL - 1; 

fhf ='^XSR.g§C?U)l'-'JNB = LNBH - LNF; LN77 = LNF; 

L2 = XSR.RLOCCLl); 

IF SPTXtIbIT THEN "x DISPLAY NSPL LINES OF SPECIAL TEXT X/ 

°°L2 = L2 + DM; LI = 0; /X SKIP ONE LINE X/ ^ 
LNF = LNF + DW; LNB = LNB - DW; LN77 = LN77 + 1; 
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DO WHILE (CL2 <= 30 - DW) & (LI < NSPD); 
L2 = L2 + DW; LI = LI + 1; 

LNF = LNF + DW; LNB = LNB - DW; LN77 = LN77 + 1; 
TXT = SPTXT(Ll); 

CALL COLORBUF; /X BUILD THE COLOR BUFFER X/ 
END; /X OF SPTXT LOOP X/ 
END; /X OF SPTXT.BIT LOOP X/ 
END; /X OF XSR_BIT OR XTD LOOP X/ 

ELSE IF (XSR_BIT & XTD_BIT) THEN /X BUILD COLOR BUFFER USING 
XTD DATA FIRST THEN XSR DATA X/ 

DO; 

DO WHILE ((L2 <= 22 - DW) & (LI < SDL+NSL-D); 

/X BUILD THE COLOR BUFFER X/ 

LI = LI + 1; 

IF SUBSTR(DTYPE,1,5) = «WARRO« THEN /x CENTER DISPLAY X/ 
DO; 

CALL R32M0VC21,LNB); 
SLOC = 21* 

END; /X OF CENTERING WARRANTY DISPLAY X/ 
ELSE SLOC = 1; 
L2 = L2 + DW; 
TXT = XTD.TTXCLl); 
TXT = SUBSTR(TXT,2); 
IF XTD.DFCL(Ll) = 0 THEN CL = 1; 
ELSE CL = XTD.DFCLCLl); 

LNF = LNF + DW; LNB = LNB - DW; LN77 = LN77 + 1; 

CALL COLORBUF; /x BUILD THE COLOR BUFFER X/ 

END; /X OF BUILDING THE COLOR BUFFER FROM XTD DATA X/ 

IF SPTXT.BIT THEN /X DISPLAY NSPL LINES OF SPECIAL TEXT X/ 
DO; 

L2 = L2 + DW; LI = 0; /X SKIP ONE LINE X/ 
LNF = LNF + DW; LNB = LNB - DW; LN77 = LN77 + 1; 
DO WHILE ((L2 <= 28 - DW) & CH < NSPD); 
L2 = L2 + DW; LI = LI + 1; 

LNF = LNF + DW; LNB = LNB - DW; LN77 = LN77 + 1; 
TXT = SPTXT(Ll); 

CALL COLORBUF; /x BUILD THE COLOR BUFFER X/ 
END; /X OF SPTXT LOOP X/ 
END; /X OF SPTXT^BIT LOOP X/ 

LI = SDLXSR - 1; 

DO WHILE ((L2 <= 30 - DW) & (LI < SDLXSR+NXSRL-1)); 

/X BUILD THE COLOR BUFFER x/ 

LI = LI + 1; 

TXT = XSR.REPTXT(Ll); 

TXT = SUBSTR(TXT,2); 

IF XSR.DFCL(Ll) = 0 THEN CL = 1; 

ELSE CL = XSR.DFCL(Ll); 

LNF = MAX(XSR.RLOCCLl), L2); LNB = LNBH - LNF; 
LN77 = MIN(LNF, 22); 
L2 = LNF + DW; 

CALL COLORBUF; /X BUILD THE COLOR BUFFER X/ 

END; /X OF BUILDING THE COLOR BUFFER FROM XSR DATA X/ 
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END; /X OF BUILDING THE COLOR BUFFER FROM XTD DATA AND 
XSR DATA 3f/ 

^°'-°5S"Jil[5°?&E COLOR BUFFER X/ 
DCL II BIN FIXED; 
SLOC = HODCSLOCSO) J 

[3^-=^0 *THEN io;'/K DISPLAY LINE IN TWO COLORS X/ 
SUBSTRtTXT, L3 + 1, 1) = ' 

CALL R3iflOVCSLo6,LNB);/X STARTING POSITION OF TEXT 
TXTl = SUBSTRC TXT, SLDC, 35); 
SUBSTR(SCREEN,(LH77-1)X80+SLOC,35) = TXTl; 

^f"-!: 5?^?IfrRl2C0L(CL)l /X BLUE COLOR CODE ^ 

lid R32«0V(36fLNB);a STARTING POSITION OF TEXT ^ 

|fBSTRcPrE5:cIiS?7-!Us5^U,45) = TXTl; 

5^t/<l'THEii'''/^'ERbR IN LENGTH OF STRING ^ 

IF^L^'"=TthIn' CALL R320TX(TXT1 . L^-l ) ; 

ELif f>0; 'I IPspIS? SfF?lRk;f LInI'iN DIFFERENT COLOR ^ 

StSitJ£,LNB);f. iffilSo^^^^^^ OF TEXT ^ 

SUBSTRCSCREEN,{LN77-1)*80+1,80) = TXT; 

^Hla"'^!' TiSEt'-Ji^'EkoR IN LENGTH OF STRING 3e/ 

If'^TXT !='*''^rL'i -= 0 THEN CALL R320TX(TXT, L^-l); 
\l TXT -= I L^ = 0 THEN CALL R320TXCTXT, 80); 
END; /* OF DISPLAY LINE IN ONE COLOR x/ 
END COLORBUF; 

IF SPSCBOT_BIT THEN 

/X FILL IN SPECIAL SCREEN BOTTOM JE/ 
IF STSCBOtIbIT THEN LNB = 6; ELSE LNB = A; 
CALL R32M0V(5,LNB); 
TXT = SPSCBOT; 

fKt/<l"THEli''J^''Ek0R IN LENGTH OF STRING ^ 

CALL ERRORS!; 

iSii '^S^S^Sfeill'sbEEN BOTTOM 

IF STSCBOT_BIT THEN 
DO; 
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/X FILL IN SCREEN BOTTOM X/ 
LNB = 5; CALL R32M0VC5, LNB) ; 
TXT_=^^SELECT AN ITEM NUMBER AND HIT ENTER'; 

CALL ELfRBLK(L4,TXT); 

^ ""cALL^ ERRORS? • LENGTH OF STRING X/ 

CALL R320TX(Txf,L<i-l); 

LNB = <i; CALL R32M0V(5,LNB); 

IF SUBSTR(DTYPE,1,5) = 'PUROO' THEN /* DO NOT INCLUDE 
TVT - .n-r.^J'^S^"'* *S POSSIBLE REPLY OPTIONS X/ 
TXT = "OTHER REPLY OPTIONS:' 

T-y^ _ ,„^N' C = CANCEL N = NEW REQUEST'; 
ELSE TXT = "OTHER REPLY OPTIONS i B = BACKUP » 
_ II' C = CANCEL N = NEW REQUEST"; 

CALL ELfRBLK(L<i,TXT); 

^""rftf I ^co JSiy IN LENGTH OF STRING X/ 

CALL ERRORST; 

CALL R320TX(TXT,L<i-l); 
,r.^*JP''r. STANDARD SCREEN BOTTOM X/ 

IF MORESC_BIT THEN /X MORE SCREEN OPTION X/ 

LNB = 3; CALL R32H0V(5, LKB) ; 
TXT = »M = MORE TEXT »; 
= 81; 

CALL ELTRBLKCL4,TXT); 

^^CALL "^ERRORST- ^^^^^ LENGTH OF STRING J(/ 
CALL R320TX(TXT,L4-1); 
END; /X OF MORESC HANDING 3e/ 
IF SOFTKEYJIT THEN /K SOFTKEY OPTION K/ 

LNB = 2; CALL R52MDVC1 , LNB) ; 

^°T? J J° NSOFTKEY; /X MOVE SOFTKEY DATA Je/ 

II = CI - 1)3€19; 

IZ = 21; 

CALL ELTRBLKCIZ,SOFTKEYTAB.SKNAME(I)); 

CALL^ERRORsf; ^^^^^ ^'^^'^^^ 
TXT = SUBSTRCTXT, 1,11)1 I • ' I I SOFTKEYTAB.SKEYCI) I I » = »ll 
SUBSTR C SOFTKEYTAB . SKNAMEC I ) , 1 , IZ-1 ) ; " 
END; /X OF I LOOP X/ ' 
L^f = 81; 

CALL ELTRBLKCL^^TXT); 

^^'cALL^ERRORsf • LENGTH OF STRING X/ 

CALL R320TXCTxf,L^"l); 
REPLYFLd''= SOFTKEY HANDLING X/ 

CALL R32M0VCl'l); 
CALL R32ITXCREPLYFLD,32,RLEN); 

REPLYFLD = TRANSLATEC REPLYFLD, ' ABCDEFGHIJKLMNDPQRSTUVWXYZS 

'abcdef ghi jklmnopqrstuvwxyz* ) ; 
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CALL GRAFEND; 
RETURN; 
END COLORSC; 

VSSiptAY XTD ON 3277 

T,^. .;r FTYFD BIN- /X SCREEN COLUMN X/ 

S^t IpOS fixed bin'; SCREEN POSITION ^ 

DCL I FIXED BIN J 

SC = 1; 

REPLYFLD = •'«; CALL PLI3270 CSCREEN, REPLYFLD); 
SUBSTRC SCREEN, 1,80) = C80)'X»j 

-D0"wMLE°ci <=^Nk-& m < DL), MOVE DATA INTO SCREEN «/ 
1=1+1; 

DTL = DTL + 1; 
IF XSR_BIT THEM 

°°4pns = CXSR RLOC(DTL)-l)3£80 + XSR.CLOCtDTL); 
SUbItR(SCREEN.SPOS;^0) = XSR.REPTXTCDTL); 
END; 

IF XTD_BIT THEN 

SPOS = (I - DXSOKDM + SC; ^ 
SUBSTRtSCREEN.SPDS,80) = XTD.TTXCDTL); 

END;°/X OF MOVING DATA INTO SCREEN X/ 
SPOS = SPOS + 80XDW; 
SUBSTRC SCREEN , SPOS , 80) = " " ' l*! ' . 
IF STSCBOT.BIT THEN CALL SCREENBOT; 
END SC3277i 

SCREENBOT t PROC ; 

ANY «;PECIAL DISPLAY FOR LINES 17-22 OF SCREEN 
FOR DIFFERENT TERMINALS AND SCREEN STATE X/ 

- DCL (I, II, SPOS, SC) BIN FIXED; 

DCL TXT CHARC80); 

SC = IJ 
I = 16; 

cpos''''=*Cl'- 1)X 80 + SC; 
SUBSTRCSCREEN,SP0S,80) = t80)'*'J 

lS;''/"Dk?KY"pECIAL SCREEN BOTTOM ^ 
I = I + 1; SC = 5; 
SPOS = CI - l)x 80 + SC; 
SUBSTRCSCREEN,SPOS,80) = SPSCBOT; 
END; /K OF SPECIAL SCREEN BOTTOM 
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IF STSCBOT_BIT THEN 

DO; /X DISPLAY STANDARD SCREEN BOTTOM X/ 
1 = I + 1; SC = 5; 
SPOS = (I - l)x 80 + SC; 

SUBSTRCSCREEN,SP0S,36) = • SELECT AN ITEM NUMBER AND HIT ENTER'; 
SPOS = Cl'- l)5f 80 + SC; 

IF SUBSTRCDTYPE,1,5) = 'PUROO' THEN /X DO NOT INCLUDE BACKUP 
ciii,«:rD,e^«^^. *S POSSIBLE REPLY OPTIONS X/ 
SUBSTR(SCREEN,SP0S,53) = 'OTHER REPLY OPTIONS. » 

Pi«P ci.iUo9o^„£'^N'^^'- N = NEW REQUEST '; 

ELSE SUBSTR(SCREEN,SP0S,66) = 'OTHER REPLY OPTIONS. B = • 
cMn ^ = CANCEL N = NEN REQUEST •; 

END; /X OF STANDARD SCREEN BOTTOM X/ 

IF MORESC_BIT THEN /X MORE SCREEN APPLICABLE X/ 
1=1+1; 

SPOS = (I " l)x 80 + SC; 

IHS^^^^^^*^^^"'SP0S'15) = = MORE SCREEN'; 
END; /X MORE SCREEN APPLICABLE ^ 
1=1+1; 

SPOS = (I - l)x 80 + SC; 
SUBSTR(SCREEN,SPOS,10) = 'HE = HELP'; 
IF SOFTKEY^BIT THEN /X SOFTKEY OPTION X/ 

SPOS = 20X80 + 1; 
TXT = ' ' ; 

" Lj?.^^°rT!l^^Y' "OVE SOFTKEY DATA x/ 
TXT = TXTIM •||S0FTKEYTAB.5KEY(II)||« = Ml 
SOFTKEYTAB.SKNAMECII); ' ' 

END; /X OF II LOOP X/ 
SUB5TR(SCREEN,SPOS,80) = TXT; 
END; /X OF SOFTKEY HANDLING X/ 
IF SOFTKEY^BIT THEN I = 21; 
ELSE 1=1+1; 
SC = 1; 

SPOS = (I - 1)X 80 + SC; 
SUBSTRCSCREEN,SP0S,80) = C80)'X«: 
END SCREENBOT; 

RPLTRANSs PROC ; 

IF REPLYMODE = 'PCKP' THEN 

PCKPRP2 = SUBSTR(REPLYFLD,2,1); 
IF SUBSTR(REPLYFLD,1.2) = 'HX' THEN GOTO DONE; /X EXIT x/ 

/X TRANSLATE REPLY & SAVE SCREEN X/ 

IF MORESC BIT S NODATA BIT & 

MnK^5IS'"Y''^^'l'l^ 'M' THEN 
NODATA_BIT = »0'B; 

IF REPLYMODE = »77KB' | REPLYMODE = •79KB' | 
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REPLYMODE = 'PCKB' THEN 
DO; /5t DECODE KEY BOARD COMMANDS X/ 

IF (SUBSTR(REPLYFLD,1,2) = 'H ') I -pp. yp, ^ = imyO I 
CSUBSTR(REPLYM0DE,1,2) = PC' 8 REPLYFLD - MY J I 
CSUBSTR(REPLYM0DEa,2) = 'PC & REPLYFLD - 'MN J THEN 
/X HANDLE MORE TEXT */ 

""^SDL = SDL + NSL; /* ADJUST FOR STARTING POSITION IN 

FETCHED DATA X/ 
IF SDL > DL THEN REQUEST NOT VALID X/ 

^°FRTKI = ERLN = 1; ERTYP = • ERRORNMREQ ' ; 
ERTBLCn = 'MORE TEXT REQUEST NOT VALID'; 
CALL ERPAC; 
GOTO DONE; 

REPLYFLD = 'MORE TEXT'; 

STACK = MODC STACK, STACKSIZ) +1; , 

SCSTACK " MODCSCSTACK, STACKSIZ) + 1; 

SVCVCSTACK) = CV; 
ELSE IF TERMINAL = 'IBMPC ' THEN 

SVCV(STACK) = CVS.CVlJ 
SVCHA20( STACK) ^ 
I = DIVIDE(SDL,MSCI,6); 

S'SUBSTR(SVCHA20(STACK-1),1,7) = 'SOFTKEY' THEN /K SOFTKEY ^ 

ELS^SXT ?'Sk???^?fs«?5cK ?M); y*?^EflX OF SCREEN ID ^ 
ib^t CALL ELTRBLK(IX,FTXT); IX = IX - 1; 

IF ix < 2 THEN >i ERROR IN LENGTH OF STRING X/ 

IF^'sUBSTRCFTXtIiX-I,!) = 'M' THEN /X ELJglNATE^LAST TWO 

TX *" IX ■* 2* 

lY = 20; CALL ELLDBLKCIYjFTXT); «nFTKEY K/ 

IF SUBSTR(SVCHA20CSTACK-1>>1,7)= 'SOFTKEY' TH^ /X SOFTKEY X/ 

REPLYSVC SCSTACK) = SUBSTRCFTXT,IY,IX-IY+1) 1 1 
5UBSTR(SVCHA2D(STACK) , 9,2) I I 'M' 1 I 

ELSE REPLyIvCsStACK)'= SUBSTRCFTXT,IY,IX-1Y+1) 1 1 'H' M 

SUBSTRCCH9,9,1); 
GOTO SNL.STATEL(LI); 
END; /X OF CASE M X/ 

^"■^^ 'LS^I?lfREPLYM0bE:i:l) = 'PC- 1 REPLYFLD = 'BY') 1 „ 
ISbItRCREPLYMOdI;!'.!) = 'PC & REPLYFLD = 'BN') THEN 
/X BACKUP SCREEN X/ 

"°j[F SUBSTR(DTYPE,1,5) = ■P"R!;[,i"iS/?H!f S?StI'x5" 
BO; 
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iS^2f•-'^^"' ^^^^ - 2' ERTYP = 'ERRORNOBAK'; 
ERTBLCl) = • ALL ITEMS HAVE BEEN CHARGED. Ml 

' BACKUP NOT 
CALL ERPAC-' PLEASE ENTER NEW REQUEST. 

CALL RPLTRANS; 
RETURN; 

END; /J£ OF HANDLING INVALID BACKUP X/ 

Slm3t!S2i '77KB' I REPLYMODE = •79KB« | 
REPLYMODE = »PCKB' THEN 

DO; 

REPLYFLD = 'BACKUP'; 
LI ; DTYPEIXSVC STACK); 

'^^11 ^"2^' I LI = 1 THEN /X BACKUP TO STATE REQOOOOO X/ 

II^SL^ M0D(STACK-2,STACKSIZ) + 1; 
oSF^^^ " ^»0DCSCSTACK-2,STACKSIZ) + 1; 
CVS.CVl ^ SVCV(STACK); 

IF SDL > MSCI + NHL THEN /X BACKUP WITHIN 

jjO; WITHIN MORE SCREEN X/ 

SDL = SDL - MSCI; 
NODATA_BIT = »1'B; 
MORESC^BIT = »1«B; 
END; 

ELSE NODATA BIT = 'O'B; 
SUGITM^BIT = »0'B; 
GOTO SNL.STATELCLI); 

"■io;'^Epi:?PJ5^^"^tX^k§L^;'Jl%'5.' """^ TRANSACTION 3./ 

QADJ = 'ADD'; 

= 1 TO NUITEM; /X RETURN ALL ITEMS TO INVENTORY K/ 
CALL ADJQUANCSVITMC IX), QADJ. STMT, RCODE); ^"^"^"'0'*^ 

'^^^ ^■'■E" QUANTITY REQUESTED TO QOH X/ 
IF RCODE -= 0 THEN /x ERROR BACKUP xy 
DO; 

IKfKn^"''.^iktl„^ 2; ERTYP = 'ERRORIMV; 
iSStSI! = : ^nilk SS^IcSp^ INVENTORY..; 
CALL ERPAC; 

END; /X OF ERROR HANDLING X/ 
^HiBLC^ RETURNING ALL REQUESTED ITEMS X/ 
PCKPRP2 = » «; GOTO FISCOOOO; END; 
ELSE IF SUBSTR(REPLYFLD,1,2) = «N • | 

rfH2n'^^*^E'''-YMODE,l,2) = «PC» & REPLYFLD = 'NY') I 
(SUBSTR(REPLYM0DE,1,2) = 'PC & REPLYFLD = »NN') THEN 
/X NEW REQUEST X/ j innn 

""aofo'^hKiJoOO;"'" = SUGITM_BIT = .Q.B; 

END; 

ELSE IF SUBSTR(REPLYFL 0,1,2) = .RE" THEN /3f HELP REQUESTED X/ 
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REPLYFLD = "HELP'; 

luBifR(SCREEN,250, 50) = -HELP SERVICE HOT IMPLEMENTED'; 
IF STSCBOT BIT THEN CALL SCREENBOT ; 
IF REPLYMO^E = 'PCKB' THEN 

°°DISPLAY(»a5{+ HELP SERVICE NOT IMPLEMENTED +za')i 
DISPLAYC ') REPLYC REPLYFLD); 

ELSE^IF REPLYMODE = '77KB' THEN 

ELSE If''REPLYM0DE = '79KB' THEN DO; 
DL = 1; 

.■..... /yi^REPTXTflDL) = ' HELP SERVICE NOT IMPLEMENTED •; 

^^XTD^TTXCSoff = • HELP SERVICE NOT IMPLEMENTED •; 

CALL COLORSC ; 

END; 

CALL RPLTRANS ; 
Fun- DF HELP REQUEST K/ 
END? /K OF KEY BOARD COMMANDS TRANSLATION K/ 

IF REPLYMODE = •77KP' I REPLYMODE = '79KP' I 

REPLYMODE = 'PCKP' THEN 
DO; /K DECODE KEY PAD COMMANDS X/ 

IF tSUBSTR(REPLYFLDU,2 = MJ)^ = -MY') I ^„ 

cluBlTR(RE?LYMSDE:i:i) = 'PC & REPLYFLD = 'MN') THEN 
/X HANDLE MORE TEXT 

°°SDL = SDL + NSL; /X ADJUST FOR STARTING POSITION IN 
SDL auL » FETCHED DATA K/ 

IF SDL > DL THEN REQUEST NOT VALID */ 

"°^%;i?l:I???i3/M;Sf ?m"l?QUEST NOT VALID/at'); 
ELSE DISPLAYS MORE TEXT REQUEST NOT VALID'); 
GOTO DONE; 

REPLYFLD = 'MORE TEXT'; 
STACK = MODCSTACK,STACKSIZ) + 1; 
SCSTACK = MODCSCSTACK,STACKSIZ) + 1; 
DTYPEIXSVC STACK) =^I;jf,4T«Tt:/«:T4rv i^- 

SVCV(STACK) = CVS.CVl; 
SVCHA20( STACK) = , 
I = DIVIDE(SDL,MSCI,6); 

If'sUBSTRCSVCHA2D(STACK-1),1,7) = 'SOFTKEY' THEN /X SOFTKEY 
ELsI'^fIxT ^TE???l5?rc's?5cK ^H); /X PREFIX OF SCREEN ID ^ 
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^^^^ ELTRBLKCIX,FTXT); IX = IX - 1; 
2 "^^^^ ERROR IN LENGTH OF STRING K/ 

CALL ERRORST; 

IF IX-IY+1 < 1 THEN /X ERROR IN LENGTH OF STRING X/ 
CALL ERRORST; 

IF SUBSTRCFTXT,IX-1,1) = THEN ELIMINATE LAST TWO 
IX = IX - 2- CHARACTERS X/ 

lY = 20; CALL ELLDBLKC lY, FTXT) ; 

IF SUBSTR(SVCHA20(STACK-1),1,7) = »SOFTKEY» THEN /X SOFTKEY X/ 
REPLYSV(SCSTACK) = SUBSTRC FTXT, lY, IX-IY+1) | | 
SUBSTR(SVCHA20CSTACK),9,2) | | 'M» | | 
SUBSTR(CH9,9,1); 
ELSE REPLYSV(SCSTACK) = SUBSTRC FTXT, lY, IX-IY+1 ) | | »M» I I 

SUBSTRCCH9,9,1); 
GOTO SNL.STATELCLI); 
END; /X OF CASE M X/ 
ELSE IF SUBSTRCREPLYFLD,1,1) = 'B' | 

CSUBSTR(REPLYM0DE,1,2) = »PC» a REPLYFLD = 'BY') I 
(SUBSTRCREPLYM0DEa,2) = 'PC* & REPLYFLD = 'BN') THEN 
/X BACKUP SCREEN X/ 

DO; 

IF SUBSTRCDTYPE,1,5) = 'PUROO' THEN /X BACKUP IS NOT 

VALID FOR THIS STATE X/ 

DO; 

ERTBL = »•; ERLN = 2; ERTYP = »ERRORNOBAK» ; 
ERTBLCl) = » ALL ITEMS HAVE BEEN CHARGED.'II 

" BACKUP NOT»; 
ERTBLC2) = 'VALID. PLEASE ENTER NEW REQUEST.'; 
CALL ERPAC; 
CALL RPLTRANS; 
RETURN; 

END; /X OF HANDLING INVALID BACKUP X/ 

IF REPLYMODE = '77KP' | REPLYMODE = •79KP' | 
REPLYMODE = 'PCKP' THEN 

DO; 

REPLYFLD = 'BACKUP'; 
LI = DTYPEIXSVC STACK); 

IF^LI_=^0 I LI = 1 THEN /X BACKUP TO STATE REQOOOOO X/ 

STACK = M0DCSTACK-2,STACKSIZ) + 1; 
SCSTACK = M0D(SCSTACK-2,STACKSIZ) + 1; 
CVS.CVl = SVCVC STACK); 

IF SDL > MSCI + NHL THEN /X BACKUP WITHIN 

MORE SCREEN x/ 

DO; 

SDL = SDL " MSCI; 
NODATA_BIT = 'I'B; 
MORESC BIT = »1'B; 
END; 

ELSE NODATA BIT = »0'B; 
SUGITM^BIT = 'O'B; 
GOTO SNL.STATEL(LI); 

END; /X OF 77KP OR 79KP OR PCKP CASE x/ 
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ELSE^IF SUBSTRC REPLYFLD, 1,1) = THEN /3C CANCEL TRANSACTION 3e/ 
DO; REPLYFLD = 'CANCEL'; LI = 1; 

D0^Ix''='i^T0'nUITEM; /K RETURN ALL ITEMS TO INVENTORY K/ 
CALL ADJQUANCSVITM(IX),QADJ,STMT,RC0DE); 

/X ADD ITEM QUANTITY REQUESTED TO QOH ^ 
IF RCODE 0 THEN /X ERROR BACKUP X/ 
DO; 

ERTBL = ERLN = 2; ERTYP = »ERRORINV»; 

ERTBLCl) = • ERROR: COULD NOT UPDATE INVENTORY.'; 
ERTBLC2) = ' PLEASE BACKUP'; 
CALL ERPAC; 

END; /X OF ERROR HANDLING X/ 
END; /X OF RETURNING ALL REQUESTED ITEMS X/ 
PCKPRP2 = ' '; GOTO FISCOOOO; END; 
- ELSE IF SUBSTRC REPLYFLD, 1,1) = 'N' I , 
(SUBSTRCREPLYM0DE,1,2) = 'PC & REPLYFLD = NY ) 1 
(SUBSTRCREPLYM0DE,1,2) = »PC' & REPLYFLD = 'NN') THEN 
/X NEW REQUEST X/ 
DO; REPLYFLD = 'NEW REQUEST'; LI = 2; SUGITM^BIT = 'O'B; 
GOTO REQOOOOO; 

ELSE IF^SUBSTR(REPLYFLD,1,2) = 'HE' THEN /X HELP REQUESTED X/ 
DO; 

REPLYFLD = 'HELP'; 

CpDppM s I « ; 

SUBSTRC SCREEN, 250, 50) = 'HELP SERVICE NOT IMPLEMENTED'; 
IF STSCBOT BIT THEN CALL SCREENBOT ; 
IF REPLYMODE = 'PCKP* THEN 
DO * 

DISPLAYC'az+ HELP SERVICE NOT IMPLEMENTED +5:3'); 

DISPLAYC •) REPLYC REPLYFLD); 

END; 

ELSE IF REPLYMODE = '77KP« THEN 

CALL SC3277; 
ELSE IF REPLYMODE = '79KP' THEN DO; 
DL - 1; 

^^'xSR^REPTXTCSDL) = ' HELP SERVICE NOT IMPLEMENTED '; 
IF XTD BIT THEN 

XTD.TTXCSDL) = ' HELP SERVICE NOT IMPLEMENTED '; 
CALL COLORSC ; 
END; 

CALL RPLTRAN5 ; 
END; /X OF HELP REQUEST X/ 
END; /X OF KEY PAD COMMANDS TRANSLATION X/ 

IF REPLYMODE = '77TS' I* REPLYMODE = '79TS' 1 

REPLYMODE = 'PCTS» THEN 

DO; /X DECODE TOUCH SCREEN COMMANDS X/ 

END; /X OF TOUCH SCREEN COMMANDS TRANSLATION X/ 

END RPLTRANS; 
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PCCHARi PROC ; 

IF DFDN = 'ITALIC THEN 
CALL PCISC ; 

^^^B^^^ SCREEN FROM XTD OR XSR IN ITALIC FONT 
STORES IN SCREEN. ALSO 

STORE FOREGROUND COLOR IN TAB.DFCLCSDL) AND 

BACK GROUND COLOR IN TAB.DBCL(SDL) 
^r- ^^^^^ TAB IS EITHER XTD OR XSR X/ 

IF DFON = »0» THEN 
CALL PCASC ; 

SCREEN FROM XTD OR XSR IN ALPHABETIC FONT 
STORES IN SCREEN. ALSO 

STORE FOREGROUND COLOR IN TAB.DFCLCSDL) AND 
BACK GROUND COLOR IN TAB . DBCLCSDL ) 
HHERE TAB IS EITHER XTD OR XSR X/ 



^f"0_DATA STREAM TO PC AND WAIT FOR REPLY 
END PCCHAR; 



PCISC: PROC ; 

/X GENERATES PC SCREEN FROM XTD OR XSR IN ITALIC FONT 
STORES IN SCREEN. ALSO 

STORE FOREGROUND COLOR IN TAB.DFCLCSDL) AND 
BACK GROUND COLOR IN TAB. DBCLCSDL) 
WHERE TAB IS EITHER XTD OR XSR X/ 

END PCISC; 

PCASC : PROC " 

sfoRES^IN SCREEN^^ALSO°" °^ ALPHABETIC FONT 

STORE FOREGROUND "color IN TAB.DFCLCSDL) AND 
BACK GROUND COLOR IN TAB . DBCLCSDL) 
WHERE TAB IS EITHER XTD OR XSR 56/ 

END PCASC; 

ELLDBLKi PROCC lY, FTXT) ; 

/X ELIMINATE LEADING BLANKS FROM TXT ac/ 

DCL CII,IY) BIN FIXED; 
DCL FTXT CHARC80); 

II = lY; lY = 0; 
DO WHILE C lY < II ); 
lY = lY + 1; 

IF SUBSTRCFTXT,IY,1) ' • THEN RETURN; 
END; 

END ELLDBLK; 

ELTRBLKi PROCCIX, FTXT) ; 

/X ELIMINATE TAILING BLANKS FROM TXT X/ 



SA9-83-009 



lig 



0140302 



FILE. QlCSHOPl PLIOPT A SAN JOSE RESEARCH LABORATORY - VM/SP CHS (l.lD 

DCL CI1,IX) BIN FIXED; 
DCL FTXT CHARC80)» 

IF IX < SI THEM SUBSTR(FTXT,IX) = 
II = IX; , " 

DO WHILE ( II > 1 ); 

IF SUBSTRCFTXT,II,1) -= ' ' THEN II = 0; 
ELSE IX = II; 
END; 
END ELTRBLK; 

".^°^^5^"?^ANsfATEl''!l&79 COLOR TO IBHPC COLOR OR 

VICE VERSA X/ 
DCL CH3 CHARC3); 
DCL TCH3 CHARC3)| 

TCH3 ~ * ' / 

^5rfRi!islA;P;SS32;9'2ofoR to IBMPC color 



i-o R^ u i SR!a.%'S6:6R fo !kK roLOR 



^^^^JVRra IBiJS"^ ^S^^BH3279 COLOR 

cSi = 'll:' THEN TCH3 =,;3,'; T^f^^J^ 
CH3 = 'B,' THEN TCH3 = "O*'; BLACK X/ 

CH3 = »15,' THEN TCH3 = 7, ; /* ""f7L*x/ 
CH3 = THEN TCH3 = '5' 'J/* YELLOW X/ 



ELSE IF CH3 = 'Z,' 
- ELSE IF CH5 = '3,' 
ELSE IF CHS = \^,\ 
ELSE IF CHS = »5,' 
ELSE IF CHS = 'O,' 
ELSE IF CHS = 

^/x'^OF TRANkATINriiHPc"'c0L6R'-T0'iBM3279-C0L0R ^ 

CH3 = TCH3; 
END COLORTRANS; 

''^^5°'on''tHe' BASIS OF THE USER REPLYFLD THIS PROCEDURE 
BRANCHES TO THE NEXT STATE X/ 

nCL CII»1X,III»IXC) BIN FIXED; 
DCL IQ FIXED BIN(31); 
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DCL CHI CHARCl); 
DCL CHS CHARCS); 
DCL TXT VAR CHARC74); 

IF SUBSTR(REPLYFLD,1,2) = »HX' THEN GOTO DONE- 
IF^TERMINAL = 'IBMPC • & REPLYFLD =^?R? THEn' 

GOTo'-DONe""^'^^*'-" '^^T'^ANSMIT REQUEST/3S'), 
END; 

IF SUBSTRCDTYPE,1,5) = 'DEMOO' THEN /K FIND FRAME NUMBER 
DO; DETERMINE ITEMID FROM 

DEMOIFC = XI.IFC; DEMOILC = XI ILC- tifmhttm - vt ttt 
- :IFJERMINAL = :'XBMPC...'-?J1EN^3i'iiK Pc'f§'S?T"F^JMi';6MBER ^ 
DISPLAY(»3txDEMO0000STXta»); 

CBS" SUBSTRCREPLYFlD.l;?); ' 

I'V - Cn5; 

CVsI:cfl'*="l''lVF'^'^^"^''*"°"' '■°'^*TE ITEM FROM CV K/ 
REPLYFLD = 'Iy';' 

P.lc'^;/?=2L?.^F^ "SE HANDLING K/ 

ELSE IF TER«,H«^= ,^j|.„.jj., . ,„„3,„. 

CALL STOP; 

CALL Fl!!Dmx?'*rS^^?i./pr^K/'^'^"^ "UMBER OF VIDEO DISK X/ 
CV = 5j'^J}fJ^I'CV»STMT,RC0DE); /'X LOCATE ITEM FROM CV *y 

CALL SEARCH(ADDR(CV)); /X DISPLAY STATIC PICTURE *x 
SVIXTfi V xi^Ilff * CASE HANDLINg'^]^^"'^^ 

END; /K OF 'demo STATE X/ 

IF SUGITM_B1T THEN /K PREVIOUS ITEM PURCHASED WAS A 
PURSUGITM BIT = .1.5?"°°^^^^^ 

lhrTTS"R?T°i^^n?r = 'O'B; INITIALIZE OF PURSUGITM BIT X/ 

SUGITM^BIT = 'O'B; /X INITIALIZE SUGGESTED ITEM BIT x7 

IF XSR_BIT THEN /X FIND NEXT STATE FROM XSR X/ 
IX = 0 ; 

°^F°TEiS?^?[' ?^??^io/* "ANDLE NON NUMBER REPLY X/ 
IF TERMINAL = 'IBMPC ' & REPLYMODE = -PCKP' THEN 



DO; 

ERTBL = ERLN = 2; ERTYP = 'ERRORSENDNU'; 
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/ ERTBL(l) = 'ERROR. NON NUMBER REPLY = MIREPLYFLD; ' 
ERTBLC2) = 'SEND NUMBER REPLY' J 
CALL ERPAC; 

IF^REPLYMODE-= 'yTKB' I REPLYMODE = THEN 

"°ERTBL = ERLN = 2; ERTYP = IIRRORSEUV'/^U, vp, 
ERTBLCl) = 'ERROR. HON NUMBER REPLY = 'MREPLYFLD, 
ERTBLC2) = 'SEND NUMBER REPLY'; 
CALL ERPAC; 

END^'/X OF HANDLING CONVERSION ERROR 3(/ -qptKEYTAB X/ 
IF SOFTKEY_BIT THEN /X LOCATE NEXT STATE FROM SOFTKETTAB */' 

BO • *" 

CHI » SUBSTRCREPLYFLD,1,1); 

m il^^ 1 T» tlSOFTKEY;-/X LOCATE INDEX OF SOFTKEY REPLY ^ 
IF SOFTKErrAB.SKEYtll) = CHI THEN /x LOCATED SOFT KEY 3t/ 
DO; IX =11; II = NSOFTKEY + 1; END; 

IF^IX'= r/lTEMWSOFTjn THEN GOTO FINDITEM; 
IF IX = 0 THEN /K ERROR X/ 

°°FRTBL = »»J ERLN = 1; ERTYP = 'ERRORSTKEY' ; 
ERTBLCl) =• ERROR. NOT A VALID SOFT KEY.'; 
CALL ERPAC; 

END; °/K^OF ERROR HANDLING X/ 

/K CHARGE CUSTOMER CREDIT 3f/ 

IF SUBSTRCDTYPE,1,5) ; •»V^2°THlM^y*'rHSRGE CREDIT K/ 
SOFTKEYTAB.SKEYCIX) = 'd* THEN /* CHARGE CKfcDli ^ 

°°TOTAL = TOTAL/100; /X ADJUST FOR DECIMAL X/ ^ . 

j.r Kuuut CREDIT X/ 

''"xSRHH BIT = 'I'B; /X SET BUY SCREEN MODIFICATION BIT ^ 
OVERCHG = TOTAL; /X AMOUNT OF OVER CHARGE X/ 

- ELlf iF ^R^O^E fJISf PURCHASED, CLEAN ITEmYiST X, 

ElI'iK^E'o =x'Ek§S"iN SQL X, 



DO 



PorViX = »«s ERLN = 2; ERTYP = 'ERRORCHARG' ; . 
Ip^Rlfli r'. ERROR: MULTIPLE CUSTOMER WITH SAME ID'; 
ERTBLtl) = ' OR SOME ERROR IN CHARGING ACCOUNT'; 
CALL ERPAC; 

END; °/X^DF ERROR HANDLING */ 
END? /X OF HANDLING CHARGE REQUEST X/ 

SAVE STATE INFORMATION X/ 
STACK = MOD( STACK, ST ACKSIZ) + 1; 
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SCSTACK = MOD(SCSTACK,STACKSIZ) + 1; 
DTYPEIXSV(STACK) = LI; 

IF^TSOFTKEY_BIT THEN /K FTXT FROM PREVIOUS REPLYSV «/ 

III = 20; 
lY = 19; 

FTXT = REPLYSVCM0D(SCSTACK-2,STACKSI2)+1); 

Fi lF"i/rT?L"^t??'-"^'^ ™ PRO" PREVIOUS REPLYSV JC/ 
ELSE IF CITEM.IIT -= " THEN REPLYSV FROM CITM X/ 

III = 9; 

FTXT = CITEM.IIT; 
lY = 8; 

END; /X OF REPLYSV FROM CITM X/ 
ELSE DO; /X REPLYSV FROM SOFTKEY NAME X/ 
III = 10; 

FTXT = SOFTKEYTAB.SKNAME(IX); 

,.»Ff°j:.iL?L5^''*-YSV FROM SOFTKEY NAME X/ 
CALL ELTRBLK( III, FTXT); III = m - i; 
CALL ELLDBLK(IY,FTXT); 

^''call'errorst} ^^^^^ ^" ^^^^^ ^^'^^'^'^ 

REPLYSVC SCSTACK) = SUBSTR( FTXT, lY, III-IY+1) I I 

Tc vcouM »TT ^„ SUBSTR(S0FTKEYTAB.SKNAMECIX),1,2); 

'%S!S5Ti5lTK /^b5?IS5SoT? ^^^-^^ 

it!v^iySff^gKJpcl!?"'^^'^«-'^S-^ATEClX); 

^^^/X^FIND*NEXT%mri^ ' ' 'S"»STR(S0FTKEYTAB.SKNAMECIX),1,2); 
LI = 0; 

IF SUBSTRCDTYPE,1,5) = »1NDEX' & 

SUBSTR(XSR.NSTATECIX),l,«i) = »DEM0' THEN /X CHANGE 
FIRST HEADER LINE OF XSR FOR DEMO STATE 
XSR.NSTATE(l) = 'DEMOOOOO'; 
IF SUBSTRCDTYPE,1,5) = 'INDEX' THEN IX = 1; /X NEXT STATE 

IF SUBSTRCSOFTKEYTAB.NSTATECIX),ir?S"/?5?J„5E?''f5E!i"'' . 
X 1 X ~~ o j 

ELSE III =5; 

DO II = 1 TO 21; /X SEARCH LABEL x/ 

IF -XSRHM_BIT & 5UBSTRCSNL .STATEN(II) , 1, III) = 
SUBSTRC SOFTKEYTAB , NSTATECIX) , 1,111) | 
^?'^""t??\? SUBSTR(SNL.STATENCII),1,III) = 'BUYOD- THEN 

END; /X OF LABEL SEARCHING LOOP X/ 
IF LI = 0 THEN /X ERROR EXIT X/ 
DO; 

2; ERTYP = -ERRORSTATE'; 
ERTBLCl) = • ERRORi NEXT STATE NOT A VALID 
ERTBL(2) = t LABEL IN PROGRAM'; ^ ' 

CALL ERPAC; 
GOTO DONE; 

END; /X OF ERROR HANDLING X/ 



1^2. 
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IF SUBSTR(DTYPE,1,5) = 'BUYOO' a o..^^cc-pen ttcmc 

SNL.STATEH(LI) = •INDEXOOO- THEK /« |ggGE|TED ITEMS 

SUGITM BIT = »1'B; 
TSDFTKEYlBIT = "I'B; /X TOUCHED SOFTKEY 

RETURN; 

END; /x OF SOFTKEY HANDING K/ 

IF TERMINAL = 'IBHPC • & REPLYHODE = 'PCKP' THEN 

IX = SUBSTR(REPLYFLD,l/l); 
ELSE 

DOf II = 33; CALL ELTRBLK(II,REPLYFLD); 

IF II < 2 THEN /X ERROR IN LENGTH OF STRING X/ 

CALL ERRORST; 

IX = SUBSTRCREPLYFLD,1,II-1); 
END; 

ILf !>S\4SsiSi!jTj?E;!Ei5!?^ -.UV..' THEN 

IX = IX + SDL - 1; 

IF PURSUGITM BIT & NSUGITM > 0 THEN 

/K ELIMINATE PUR FROM SUGITM TABLE X/ 

^^DO III = IX TO NSUGITM? 

SUGITMCIII) = SUGITMCIII+1); 
END; /X OF III LOOP X/ 

ENof J" OF^IlIMINATING PURCHASED ITEM FROM SUGITM TABLE X/ 

IF LI--'= 0 & REPLYFLD -= 'MORE TEXT' & REPLYFLD 'BACKUP' 
THEN /X SAVE STATE X/ 

IF SUBSTRCSNL.STATEN(LI),1,5) = 'BQOOO' THEN 
Xt- auD^iiK^^N^ QUANTITY OF UNITES REQUESTED X/ 

DO; 

IQ = IX - SDL + 1; 
CITEH.QUAN = IQ; 
CITEM.IEP = XP-IEP; 
QADJ = »SUB'; 

CALL ADJQUANCCITEM, QADJ, STMT, RCODE); 

CALL ft"'"<"«;;i;^»'^„ECK item quantity REQUESTED, IF QUANTITY 
MOT AVAILABLE THEN RETURN AVAIL. QUAN IN 
SVITM.QUAH X/ 

IF CITEM.QUAN -= IQ THEN 

DO; /X REQUEST DIFFERENT ITEM QUANTITY x/ 
ERTBL = '•; ERLN = 5; ERTYP = 'ERRORQUAN'; 

ERTBL(1)"^"at"pRESENT ONLY ' | |SUBSTR(CHl<i,12,3) 1 1 

' UNITS OF ITEM •; 
ERTBL(Z) = CITEM.INM; „.^„..„ . 

ERTBL(3) = • AVAILABLE. PLEASE ENTER BACKUP.'; 
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CALL ERPAC; 
CITEM.QUAN =0; 
CALL RPLTRANS; 
CALL REP60; 
RETURN; 
END; 

/X ADJUST QOH IN SIZC0L5 TABLE AND 

THE ELIMINATE ITEM FROM PURCHASE LIST AND 

DO; 

J J ^''X ELIMINATE SUGGESTED ITEMS OF DELETED ITEM 3£/ 

DO WHILE (II < NSUGITM+1); 
II = II + 1; 

°°s5J?TSc5?ir="il!gJia[iii^if^^"^'^'^^^ 

END; /X OF HANDLING PURCHASED ITEM 
END; OF SEARCHING SUGITM TABLE X/ 

QADJ = 'ADD'; 

CALL ADJQUANtSVITM(lX), QADJ. STMT, RCODE); 

DO II = IX ^0 S8?TilS'l^ REQUESTED TO QOH ^ 

SVITM.IITCH) = SVITM.IIT(II+1), 

^y.JIU'i'^""!^ = SVlTM.INMCII+1); 

SVITM.COLOR(II) = SVITM.COLOR(li+l), 

SVITM.SIZECII) = SVITH.SIZE(II+1), ' 

SVITM.MODELCII) = SVITM.HODEL( II+l); 

SVITM.QUANai) r SVITM.QUAHCIlil), ' 

lw?TM-?ISf?SF^ " SVITM.STREP(II+1); 
SVITM.lEP(Il) = SVITM.1EP(II+1); 
END; OF II LOOP K/ 

NUITEM = NUITEM - 1; 

XSRHM_BIT = 'O'B; /X NOW CLIM MAY COVER PURCHASE */ 
END; XX OF ELIMINATING ITEM IN BUY STATE X/ 

IF SUBSTR(SNL.STATENCLI),1,5) = 'BUYOO' THEN 

ty"- tS-'PI ^^^^^ TO MATCH XSR INDEX J"^** 
IX - IX + 2; 

iHflISS$"^-|IATEM(DTYPElXSV(STACK)),l,5) = 'DEMOO' & 
SUBSTR(XSR.STREPCIX),1,6) = 'ITEMOD- THEN /X PREPARE FOR 
jjQ. SCROLLING WITHIN DEMO ITEMS X/ 
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CALL ITEMCURCDEMOIFC,DEMOILC,STMT,RC0DE)} 
CALL ITEMSETCXI,STMT,RCODE); 

IF^SUBSTRCXSR.STREPCIX)a,6) = -ITEMOD' THEN /X FIND ADJACENT 

DEMO ITEMS X/ . - 

DO; 

CH2 = SUBSTRCXSR.STREPC1X)»9,2); ,„.,/-cijt ttbm vr 

IF CH2 = 'PI' I CH2-= 'HI' THEN /X GET ADJACENT ITEM X/ 

°°CALL AD J ITEM C XI , CH2 , STMT , RCODE) ; 

IF RCODE 0 THEN /X ERROR BACKUP X/ 

^''frtBL = »'j ERLN = 2; ERTYP = 'ERRORHOITM'; 

ERTBLCl) = 'ERROR. NO MORE ITEM IN COMMERCIAL.'; 
ERTBLC2) = ' PLEASE BACKUP'; 
CALL ERPAC; 

END; /X OF ERROR HANDLING X/ 

lF^TERMINAL'="iBH3279' I TERMINAL = 'IBM3277' THEN 
/X SEARCH VIDEO K/ 

nn • 

IF XI IVF -= 0 THEN /X SET NEW VIDEO FRAME X/ 

CV = XI. IVF; 
CALL SEARCHCADDRCCV)); 

pun - 

ELSE IF TERMINAL = 'IBMPC ' THEN /X SET CVS.CVl X/ 

Tin * 

IF XI IVF 0 THEN /X NEW VIDEO FRAME X/ 
CVS.CVl = XI. IVF; 

END^^'/X ADJACENT DEMO ITEM X/ 
END; /X OF ITEHOD CASE X/ 

/X SAVE STATE INFORMATION X/ 

II = SCSTACK; /x SAVE SCSTACK X/ 

STACK = M0DCSTACK,STACKS1Z) +1; 
SCSTACK = MODC SCSTACK, STACKSIZ) + 1; 

irSUBSTRCDKpE!l%)^= 'BUYOO. T^ DELETED FROM 

BUY SCREEN. DO NOT CHANGE REPLYSV X/ 
REPLYSVCSCSTACK) = REPLYSVCII); 
ELSE IF SUBSTRCDTYPE,1,5) = 'DEMOO' THEN 
/X ITEM FROM DEMO, USE SVIXTM X/ 
REPLYSVCSCSTACK) = SVIXTM; 
ELSE IF XSR.STREPCIX) -= IS^U^, 

REPLYSVCSCSTACK) = XSR.STREPCIX); 
IF REPLYSVCSCSTACK) = ' ' THEN /X ERROR X/ 

°°ERTBL = •»; ERLN = 2; ERTYP = 'ERRORNOSTR'; 
ERTBLCl) » ' ERROR. NO REPLYSV. SYSTEM ERROR.'; 
ERTBLC2) = » ADDRESS ACCEPTION.'; 
CALL ERPAC; 

END; /X OF ERROR HANDLING X/ 
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IF SUBSTR(DTYPE,1,5) = 'DEMOO' & 

IF SUBSTR(SNL.STATEN(LI),1,5) = 'COLOR' S 

SUBSTR(XSR.HSTATE(IX):i 5) ■«= 'IMSOO' THEN 
DO; REQUESTED ITEM COLOR X/ 

IF II = 0 THEN 

CITEM. COLOR = SUBSTR(XSR.REPTXT{IX5 1 81- 

ii?i„^iii?p^-5s\:s?SiPi?ji?f^"'"^^ 
^^fiiT^i^ji;^sifiiii?5f^j^i?'h^?.^3;s?s^;,g 

jjp. SAVE REQUESTED ITEM SIZE ll^ 

IF II = 0 THEN 

CITEM. SIZE = SUBSTR(XSR.REPTXT(IXi 1 H^- 

END; 

^'•^i,.iL5V^S'^'*^SNL.STATENCLI),l,5) = 'MODEL' S 

SUBSTR(XSR.NSTATECIX).1,5) -^r 'INSOO' THEN 
50. SAVE REQUESTED ITEM MODEL X/ 

IF II = 0 THEN 

CITEM. MODEL = SUBSTR(XSR.REPTXTtlX1 1 9n>. 

rrr^^H °^ SAVING STATE X/ 

F^|p'?rfT^5^^^ = 'GNINXBOO' THEN BRANDIX BIT = 'I'B; 
LI =0; BRANDIX_BIT = 'O'B; 

IF SUBSTR(DTYPE,1,5) = 'INDEX' & 

SUBSTR(XSR.NSTATECIX),l,<i) = 'DEMO' THEN /x CHANGE 

XSR.SiflfEfff P'SSoSEo??'^ ^^'^^ - 

IF SUBSTR(DTYPE.1,5) = 'INDEX' THEN IX = 1; /x NEXT STATE 

IF SUBSTR(XSR.NSTATE(IX),1,6) = .I??!!oD^'?§?n""°"' 

ELSE III = 5; 

^°Ti^^nncTl?c2?^,''^ SEARCH LABEL ^ 
IF SUBSTRCSNL.STATEN(II), 1,111) = 
DO . ^}'?'I''J?^^!?STATE( IX) : 1 : III) THEM 
DO; LI - II; H = 21; END; 
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END; /X OF LABEL SEARCHING LOOP X/ 
IF LI = 0 THEN /X ERROR EXIT X/ 

'^"frtbL = ••; ERLN = 2; ERTYP = 'ERRDRSTATE' ; 

ERTBLCl) ERROR. NEXT STATE HOT A VALID LABEL'? 

ERTBL(2) = ' LABEL IN PROGRAM'; 
CALL ERPAC; 
GOTO DONE; 

END; /X OF ERROR HANDLING X/ 
END; >x OF FINDING NEXT STATE FROM XSR X/ 
IF XSI^BIT THEN 

/36 FIND NEXT STATE FOR XSI DATA X/ 
END; /X OF XSI DATA HANDLING X/ 
END REP60; 

ERRORST. PROC; CMIEU WHEN ERROR OCCURS IN 

THE LENGTH OF A STRING, LIKE A BLANK LINE X/ 

ERTBL = "; ERLN = 3; ERTYP = 'ERRORBLSTR' ; 
ERTBLCl) = • ERROR. IN LENGTH OF STRING.'; 
ERTBLC2) = • POSSIBLY BLANK STRING IN DATA.'; 
ERTBL C 3) = ' SYSTEM QUITS.'; 
ERRORST_BIT = 'I'B; 
CALL ERPAC; 
GOTO DONE; 
END ERRORST; 

ERPAC^^PROC^ PROCEDURE DISPLAYS ERROR MESSAGES. 

l^ll SliKJiii ?Si fRSeiVE^f^Sf eKn contains THE 
NUMBER OF LINES OF ERROR MESSAGES X/ 

DCL CI, II, IX) FIXED BIN; 

nn rI2TNT EXt'^ENTRY CFIXEDC31) BIN, FIXEDCSl) BIN) OPTIONS(ASM); 

Tin R32M0V EXT ENTRY CFIXED(31) BIN, FIXED(31) BIN) OPTIONS(ASM); 

S§t IflE'SSn iSES!l;I,°51"SS?5irJk0TH OF REPLY «EL» 

DCL CL BIN FIXED(31); 

JS,"5?!fSniA:irEi'clEE!l"i''sET BACK 5R0U»B COLOR ^ 
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cf-' if'/^RlilSLOR'^;* BACKGROUND COLOR X/ 

CALL R32C0L(CL); /k COLOR CODE K/ 

DO^ll'- BACK GROUND COLOR X/ 

IF TreirlS. ^^^^ir^J,^ DISPLAY ERROR X/ 
IF TERMINAL = 'IBMSZ??' THEN 

DISPLAYC •IIERTBL(II))- 
ELSE IF TERMINAL = -IBMSaT^' THEN 
''°A«/*.^»"3279 DISPLAY X/ 

CALL R32HQV(5,31-II),/x STARTING POSITION OF TEXT X/ 

CALL ELfRBLKCIX,ERTBL(lI)); 
^Hlll IdWEf'^Q'^ST^IT^ TJtEN XX ERROR IN LENGTH OF STRING X, 

* 2 THEN CALL ERRORST; 
CALL R320TX(ERTBLCI1). IX-l ; 
FMn"°'",/^r°Li2S2279 DISPLAY X/ 

tp^^SSmt^,?. ^'^'^O'^ DISPLAY X/ 
IF TERMINAL = •IBM3279' THEN 
DO; /X RECEIVE REPLY xx 

REPLYFLD = •»; 

CALL R32M0V(1,1); 

REPLYFLD = TRANSLATEC REPLYFLD, -ABCDEFGHI JKLMNOPQRSTUVMXYZ' . 
CALL GRAFEND; abcdefshijklmnopqrstuvwxyz'); 
END; 

END; xx ERROR MSG ON IBM3277 OR IBM3279 X/ 

W TERMINAL = 'IBMPC • THEN 
Tat /X DISPLAY ERROR ON IBHPC X/ 
IX = 13; 

CALL ELTRBLK(IX,ERTYP); 

^'"cOTO^DOHE;^*"'*"^^-^" ^ "-^NGTH OF STRING XX 

£F IX < 2 THEN CALL ERRORST; 
SJ^n^^^^* ' ' SUBSTRt£RTrP,i , JX-l ) J i » ) • 

Sf = ERLN^ ^''*'^' CACHE SCREEN XX 

BISPLAY('aSX40,'||SUBSTRCCH9,8,2)||t fifl i s n i »^*3ix 
"l"=%l;^° ERLN; xx DISPLAY ERROR'M?G^i^'"'^'^'^*^^' 
CALL ELfRBLK(IX,ERTBL(II)); 

''gOTO^DOnI;^'"'"'''^-'" •■^'^'^T" -TRIWG XX 

IF IX < 2 THEN CALL ERRORST; 

DISPLAY( 'Sax' I |SUBSTR(ERTBLCII),1,1X-1) I I 'xas'l- 
END; XX OF ERROR MSG DISPLAY XX " ^' 

I = M0p<SCSTACK-2,STACKSIZ) + I; 

H T«21i CALL ELTRBLK(IX,SVBACKUPSC(I)); IX = IX - 1; 

gJtO BOnI;^'"*"'*^^-"^ "'-^ ERROR IN LENGTH OF STRING XX 
IF IX < 1 THEN CALL ERRORST; 
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DISPLAY( ' «a%B .I'll SUBSTR( SVBACKUPSCCI ) , 1 , IX) 11 * J^at ' ) ; 
DISPLAY('«/++/f REPLYCREPLYFLD); 
ENDj /K ERROR MSG ON IBMPC */ 

END ERPAC; , X/ ' 

/X 

VCONt PROCEDURE; 

S(5) ffiI!5^BASED(CHP); 
CHP = ADDR(CH5); 

^^ifcHRCn'^ • ' THEM GOTO SI; 
CVS.PCVC = CVS.PCVCllCHRCI); 
SI: END; 

END VCON; ^ 

SEARCHPi PROCEDURE; 

/K WILL INSTRUCT PC TO STOP VIDEO AT FRAME CVS.CVl ^ 
CVS PCVC CH14 = CVS.CVl; CH5 = SUBSTRCCHW,10,5); 

CA?L VCON; CVS.PCVC = CVS.PCVCll 'CO' ; 
END SEARCHP; 

3t/ 

''aUTSTPP* PROCEDURE; 

WILL INSTRUCT PC TO AUTO STOP VIDEO AT FRAME CVS.CVl ^ 
r^^ PCVC CH14 = CVS.CVl; CHS = SUBSTRCCHWr 10,5) ; 

CALL VCON; CVS PCVC = CVS .PCVCl M C2' ; 
END AUTSTPP; 



''sTOPP* PROCEDURE; 



/X WILL INSTRUCT PC TO STOP VIDEO DISK X/ 



CVS.PCVC = «B0C3«; 
END STOPP; 

X/ 

FRMNUPt PROCEDURE; 



/X WILL 



INSTRUCT PC TO FETCH FRAME NUMBER FROM VIDEO DISK X/ 



CVS.PCVC = 'C5M 
END FRMNUP; 



CVS.CVl = CALL^AUTSTPP, DISP^^JyC -STOP = 'IICVS.PCVC) 



; 
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CALL FRMNUP; DISPLAYt 'FRAME = ' I ICVS.PCVC); 

DONEt 

CALL COMMIT (STMT, RCODE); 
IF TERMINAL = 'IBMPC 'THEN 

DISPLAYC ' «a/EXIT/3*i ) ; 
DISPLAYC '«/++/«»); 
END; 

^^DISPLAY<?EXIT'J- '""^2777' | TERMINAL = •IBM3279' THEN 

GOTO EXIT; 

/* 

EXIT. END QKSHOPl; 
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1. A method for dynamically generating screens of textual data upon at 
least one information display surface of a terminal (41,43), the 
terminal communicating with a database management system (31) across a 
message interface (33) , and further having facility for locally storing 
(caching) and for selectively projecting information received from the 
database system upon the display surface, and for sending operator 
initiated data to the database system, comprising the steps of: 

(a) storing object names, attributes, and values relatipnally 
as tuples and relations into the database system; 

(b) exhibiting a first menu of textual data upon the display 

surface; 

(c) selecting of a data element from the displayed first menu 
by an operator at the terminal; 

(d) responsive to the operator selection, querying the 
relationally stored data and acquiring a set of tuples therefrom 
designated by the selection; 

(e) generating a text screen including any menu from the 

acquired tuple set; and 

(f) displaying the generated text screen upon the display, 
and rendering the system available for yet another selection of a 
data element from a displayed menu at the terminal. 

2. A method according to claim 1, wherein the step of storing data 
relationally includes the step of storing such data in first and second 
normal forms. 

3. A method according to claim 1. wherein the step of querying the 
relationally stored data includes the step of selective blocking objects 
and values from inclusion within a tuple or tuples defining a screen of 
data so as to effectuate an elision thereof from the displayed data, 
whereby a virtual menu is dynamically generated from the relationally 
stored data. 
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4. A method according to claim 1, wherein the step of querying and 
acquiring the relationally stored data includes the steps of storing the 
acquired data locally at the terminal and upon the condition subsequent 
of a selection from a displayed menu matching a previous menu selection, 
referencing the data from that locally stored. 

5. A method according to any of claims 1 to 4 wherein the terminal is 
a point-of-sale terminal. 

6. In a system comprising a CPU (31) hosting a database and attendant 
database management and accessing facilities; and at least- one 
point-of-sale (POS) terminal (33,43) having a first (21) and a second 
(25) display means, a source (23) of video pictures, input means (27) , 
message interface means (33) coupling the CPU, a local store, and a 
microprocessor (29) interconnecting the display means, the video source, 
the input means, and the interface means; a method for dynamically 
selecting screens of picture data from the video source on the first 
display means and dynamically generating screens of textual data from 
the database on the second display meems, comprising the steps of: 

(a) storing object names, attributes, and values relationally 
as tuples and relations in the CPU database; 

(b) exhibiting a first menu of textual data upon the second 
display means; 

(c) selecting of a data element from the displayed first menu 
by an operator at the POS terminal and entering the selection into 
the terminal through the input means? 

(d) responsive to the operator selection, ascertaining 
whether the menu selection matches a previous selection and in the 
event of a match querying the local store, otherwise querying the 
relationally stored data in the CPU database and acquiring 
therefrom a set of tuples designated by the selection; 

(e) generating a text screen including any menu and any 
picture information from the acquired tuple set; 

(f) displaying the generated text screen upon the second 
display means, and responsive to the generated picture information. 
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causing selected pictures to be obtained from the video source and 
projected upon the first display means j and 

(g) rendering the system available for yet another selection 
of a data element from a merm projected on the second * display means 
or from the picture projected on the first display. 

7. A method according to claim 6, wherein the step of matching the 
menu selection includes the steps: 

upon a match, sending activity data to the CPU, creating a 
text screen from the local store and projecting said text screen 
upon the second display means, and causing selected pictures 
determined from the data in the local store to be projected upon 
the first display means by the video source. 

8. A method according to claim 6, wherein the method further includes 
the steps conditioned by a mismatch between a current and previous menu 
selection, sending a service request from the POS terminal to the CPU 
and invoking the database management to acquire a tuple set designated 
by the selection; and responsively accessing the database and generating 
a screen format comprising the textual screen information and layout and 
associated picture identification or accessing data. 

9. A method according to claim 6, wherein the step of rendering the 
system available for yet another selection of a data element includes 
the selection of an attribute such as color and the like from the 
picture projected on the first display. 



1/7 
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